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COMOC: THREE-DIMENSIONAL BOUNDARY REGION VARIANT 
PROGRAMMER'S MANUAL 
By 

J. A. Orzechowski & A, J. Baker 
Bell Aerospace Company 

SUMMARY 


The Three-Dimensional Boundary Region .Variant of the COMOC 
computer program system solves the partial differential equation 
system governing certain three-dimensional flows of a viscous, 
heat conducting, multiple-species, compressible fluid including 
combustion. The solution is established in physical variables, 
and employs a finite element solution algorithm for the boundary 
value portion of the problem description in combination with an 
explicit marching technique for the initial value character. 

The computational lattice may be arbitrarily non-regular, and 
boundary condition constraints are readily applied. The program- 
mer's manual contains a brief capsule of the mathematical prob- 
lem description and the theoretical foundation of the solution 
algorithm. It presents a detailed description on the construc- 
tion and operational sequence of the program, and provides com- 
plete instructions on the utilization of the many optional fea- 
tures of the code. A more complete description of the theoret- 
ical foundation of the finite element solution algorithm, and a 
detailed discussion of computational results for several sample 
problems in fluid mechanics is contained in the theoretical guide 
and user's manual [Ref. 1]. 


INTRODUCTION 


The finite element methodology for numerical solution of 
initial-boundary value problems in continuum mechanics is growing 
rapidly. Formerly constrained to solution of structural problems 
or other linear field problems wherein an equivalent extremum 
principle exists, the theoretical support is now sufficiently gen 
eralized to render the method directly applicable to explicitly 
nonlinear problems, including viscous fluid mechanics [Ref. 1-3]. 
The COMOC computer program system is being developed to transmit 
this rapid theoretical progress into a viable numerical solution 
capability. On the way to generation of this general purpose 
concept, several Variants of COMOC have been developed for spe- 
cific problem classes including transient thermal analysis [Ref. 
4] and the two-dimensional Navier Stokes equations [Ref. 5]. 
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The Three-Dimensional Boundary Region (3DBR) Variant of 
COMOC, to which this programmer's manual is addressed, solves 
the three-dimensional boundary region equations for flow of a 
viscous, heat conducting, multiple-species, compressible fluid 
including combustion. The flow may be external or confined, 
subsonic or supersonic, laminar and/or turbulent, and can con- 
tain up to nine or more distinct species in frozen composition 
or undergoing eauilibrium chemical reaction for a hydrogen/ 
oxygen/air system. The finite element solution procedure 
marches the discretized equivalent of the governing equation 
system in the direction parallel to the predominant flow. It 
numerically establishes the complete three-dimensional distri- 
butions of the three scalar velocity components, enthalpy, 
temperature, density, viscosity, and all applicable species mass 
fractions. Initial distributions of all dependent variables may 
be arbitrarily specified, and boundary condition constraints for 
each dependent variable are user-specifiable on arbitrarily dis- 
joint segments of the solution domain closure. The solutions 
for each dependent variable, and all computed parameters, are es- 
tablished at node points lying on a snecifiably non-regular com- 
putational lattice formed by plane triangulation of the elliptic 
solution domain. 

All Variants of the COMOC system are built upon the macro- 
structure illustrated in Fig. 1. The main executive routine al- 
locates core, using a variable dimensioning scheme, based upon 
the total degrees of freedom of the problem. The size of the 
largest problem that can be solved is thus limited by the core 
size of the computer in use. The precise mix between number of 
dependent variables (and parameters), and fineness of the dis- 
cretization, is user-specifiable and widely variable. The Input 
module serves its standard function for all dependent variable, 
parameter, and geometric coordinate arrays. The Discretization 
module forms the finite element discretization of the solution 
domain, and evaluates all required finite element non-standard 
matrices and standard-matr ix mu 1 1 i nl i ers . The Initialization 
module computes the remaining initial parametric data reauired 
to start the solution. The Integration Module constitutes the 
primary execution sequence of problem solution. It is based 
upon an explicit finite difference integration algorithm for the 
column vector of unknowns of the solution, for which the discre- 
tized description is initial -val ued . Calls to auxiliary routines 
for parameter evaluation, e.g., viscosity, Prandtl number, source 
terms, combustion parameters, etc., as specified functions of 
dependent and/or independent variables are governed by the Inte- 
gration Module. The user has considerable latitude to adant 
COMOC to the specifics of his particular problem at this noint, 
by directly inserting easily written subroutines into COMOC to 
compute special forms of these parameters. The Output module 
is similarly addressed from the integration sequence and serves 
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its standard function via a highly automated array display 
algorithm. COMOC can execute distinct problems in sequence and 
contains an automatic restart capability to continue solutions. 

The 3DBR Variant of COMOC, as a direct consequence of the 
expansive problem class to which it may be addressed, is a fairly 
large and complex computer program. This programmer's manual 
presents a brief introduction to the partial differential equa- 
tion system being solved, and summarizes the theoretical founda- 
tions for the combined finite element-finite difference Proce- 
dures used to establish the desired numerical solution. This is 
followed by a complete description of 3DBR COMOC including envi- 
ronment, program specifications, link and subroutine structure, 
program comments and detailed flow charts. The instructions for 
machine set-up and execution of the code are included, and sample 
output for the standard test cases is fully discussed. A com- 
plete discussion on the technical aspect of solutions for the 
standard test cases is presented in the user's guide [Ref. 1]. 


PROELEM TASK DESCRIPTION 


The system of partial differential equations governing the 
three-dimensional boundary region flow of a compressible fluid 
is obtained from the parabolic approximation to the full Navier- 
Stokes equations. The parabolic approximation, i . e. , "oarabol ic 
Navi er -Stokes eauations," describe steady, three-dimensional 
flows wherein, 1) a predominant flow direction is uniformly dis- 
cernible, 2) in this direction (only), diffusion processes are 
negligible compared to convection, and 3) no disturbances are 
propagated upstream antiparallel to this direction. The boundary 
region equation system is obtained from parabolic Navi er-Stokes 
with the single additional assumption that a known pressure dis- 
tribution is superimposed upon the flow field. It is the numer- 
ical solution of this equation system to which 3DPR COMOC is 
addressed. Identify the three-dimensional velocity vector 

u ■ = u-ji+Ligj + u-k ( T) 

For development of the differential equation system, assume that 
i is aligned parallel to the predominant flow direction. Iden- 
tify a two-dimensional vector differential operator as 

{ ) j k - j( ) » 2 + M )»3 (2) 


n. 


where the comma identifies the gradient operator. Employing 
Cartesian tensor notation, with summation over 2 and 3 for re- 
peated latin subscripts, the three-dimensional boundary region 
equation system for a multiple-species, compressible, reacting 
flow takes the form 
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( 6 ) 


The variables appearing in Eq. (3 ) - (7 ) are non-dimensional i zed 
with respect to p*, 11,*, Cp M , T^, and a length constant L, and 
have their usual interpretation in fluid mechanics. The Reynolds 
(Re), Prandtl (Pr), and Schmidt (Sc) numbers are defined with 
respect to the effective diffusion coefficient, y 6 , in algebraic 
combination with the laminar and turbulent contributions as, for 
example 


m! = U_ + ££_ 

Pr - p r pr T 



In Eq . (8), y is the laminar viscosity, e is the kinematic eddy 
viscosity, and subscript T denotes a turbulent reference param- 
eter. The stagnation enthalpy is defined in terms of species 
static enthalpies as 
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(9) 


H = I h a Y“ + 1 u k u k 


a 


The static enthalpy includes the heat of formation, h®, of the 
species in its definition as 


,a 


c“dT + h“ 
P o 


( 10 } 


An equation of state is required to close the system. Assuming 
perfect gas behavior for each species, from Dalton's law, obtain 


P 


#a 


P RT l ~ 
a W a 


( 11 ) 


where R is the universal gas constant and W a is the molecular 
weight of the a-th species. 

Equilibrium combustion of hydrogen/oxygen/air systems in 
three-dimensional boundary region flow is operational in 3DBR 
C0M0C. The following reactions are assumed operative. 


2H + 0 t H 2 0 

2H t H 2 

20 i o 2 

H + U t OH 

N 2 +■ 20 t 2 MO (12) 

The equilibrium composition of the combustion by-nroducts is 
determined by applying the Law of Mass Action [Ref. 6] to each 
reaction defined in Eq. (12). This yields definition of a set 
of equilibrium rate constants, K, which, for the simple reaction 
nA + mB t zc , are expressed in terms of species mole fraction, 

X a , as : ■ 





K 


(13) 


rx A i n rx B i m 

[X 0 ]* 

Solution of Eq. (12) with (13), and coupled with conservation of 
total and elemental mass, yields an algebraic equation system 
for determination of the equilibrium composition of the system, 
of the form. 


[N^]{X a } = {const.} (14) 

In Eq. (14), the elements of the matrix [N|] account for the 
particular species mole fraction distribution, {X a }, containing 
the B^h elemental material, e.g., 0, H, and N. 


METHOD OF SOLUTION 


The three-dimensional boundary region equation system, 
except for global continuity, Eq. (3), is uniformly an initial- 
boundary value problem of mathematical physics. Each of the 
partial differential equations, Eq. (4)-(7), is a special case 
of the general second-order , nonlinear partial differential 
equation 


L(q) s K[K(q)q, k 3 + f (q ,q s ^ ,X . ) - g(q,x) = 0 05) 


where q is a generalized dependent variable identifiable with 
each computational dependent variable. In Eq. (15), f and g are 
specified functions of their arguments, x 15 identified with xi 
for boundary region flows, and x-f are the coordinates for which 
second order derivatives exist in the lead term. The finite 
element solution algorithm is based upon the assumption that 
L(q) is uniformly parabolic within a bounded open domain & , i.e., 
the lead term in Eq. (15) is uniformly elliptic within its domain 
R, with closure 3R, where 


= R x Cx 0 .»x) (16.) 


and Xo — X < “■ For Eg* (15) uniformly parabolic, unique solu- 
tions for q are obtained pending specification of boundary 
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constraints on 3R and an initial condition on RU3R. For the 
former, the general form relates the function and its normal 
derivative everywhere on the closure, SR, as 

&(q) H a^q(x\,x) + ,x) » k n k - = 0 (17) 

In Eq. (17), the a^(x\,x) are user specified coefficients, 
the superscript bar notation constrains x-j to SR, and n k is the 
local outward-poi nt i ng unit normal vector. For an initial 
distribution, assume given throughout RUSH * x 0 * 


"<Vx 0 ) = VV 


(is) 


The finite element solution algorithm is established for 
the equation system (15)-(18), using the Method of Weighted 
Residuals (MUR) formulated on a local basis. Since Ea. (15) is 
valid throughout R, it is valid within' disjoint interior sub- 
domains, R m , described by (x-j,x)eRm x [xo»xj called "finite 
elements," wherein UR m = R. Form an approximate solution for q 
within Rm * [xojx)> called q£(x-j,x)> b y expansion into a series 
solution of the form 


q*(x 1>x ) = [<t>U 1 )> T {'Hx)> m (is) 


wherein the functional s k ( x i ) are meni bers of a function set com- 
plete in R m , and the unknown expansion coefficients, Qk C X ) » rep- 
resent the x-dependent values of qS( x i»x) at specific locations 
interior to Rm and on the closure, 3R m , called "nodes." 

To establish the values taken by the expansion coefficients 
in Eq. (19), require that the local error in |he approximate so- 
lution to both the differential equation, L ( q m ) , and the boundary 
condition statement, ^fq^), for 3R,/T3R, be rendered orthogonal to 
the space of the approximation functions. Employing an unknown 
algebraic multiplier, A, the resultant equation sets can he 
combined as 


{<J>(x i )}L(q*)dx 


f 


A 

. 


U(x. }H(o*)da 



3R 03 R 
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( 20 ) 
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The number of equations (20) is identical to the number of node 
points of the finite element, R m . 

Equation (20) forms the basic operation of the finite 
element solution algorithm and of 3D8R COMQC. Establishment of 
the global solution algorithm, and determination of X, is accom- 
plished by evaluating Eq. (20) in each of the M finite elements 
of the discretized solution domain, and assembly of these M * n 
equations into a global matrix system using Boolean algebra. 

The lead term can' be rearranged, using a Green-Gauss Theorem, to 
yield 


{d»(x i )}K[KqJ, k ] j dx 

k 


R 


m 


k j>{<J>(x 1 )}Kq*, k n k da 


3 R 


m 


K Ju(x t )>, k ICq*, k dT (21) 


m 


For 3Rn8Rm nonvanishing, Eq. (21), the corresponding segment of 
the closed surface integral will cancel the. boundary condition 
contribution, Eq. (20), by identifying Xa^ 2 ) with k of Eq. (15). 
The contributions to the closed surface integral, Eq. (21), where 
SR^naR » 0 can be made to vanish. Hence, combining Eq. (17)-(21), 
the globally assembled finite element solution algorithm for the 
representative partial differential equation system description 
becomes 


u 



- 9*)dt 



3R m 3R 
m 



{ 0 } 


( 22 ) 


The rank of the global equation system, Eq. (22), is identical 
to the total number of node points on RU3R for which the depen 
dent variable requires solution. Equation (22) is a first- 
order, ordinary differential system, and the matrix structure 
is sparse and banded. Solution of the ordinary differential 


9 



equation system is obtained using a finite difference numerical 
integration procedure. 

The solution algorithm for the global continuity equation 
is similarly derived. Recognizing that Eq. (3) is an initial 
value problem on pug as a function of xg» with xi and X 3 appear- 
ing as parameters, the approximation function need span only the 
transverse coordinate direction as 

q* = {^(x 2 )} T {Q(x 1 ,x 3 )} I)1 (23) 

The matrix elements Qj< are nodal values of puf; their functional 
dependence requires solution of Eq. (3) along lines ( x -j , X 3 ) equal 
a constant. The solution algorithm for Eq. (3) is directly spec- 
ified as 


{<!>}L ( puS )da = 0 ( 2 fl) 


where the matrix elements of {$} are not coincidental with those 
of {(])}, Ea, (23), and the segments R m correspond to lines of 
(x^x^) equal to a constant. 

The functional flow chart for 3DBR COMOC is presented as 
Fig. 1. HAIM initializes execution of COMOC and allocates core 
using a variable dimensioning procedure for the problem at hand. 
The first steps within INPUT evaluate if a problem solution has 
been completed, and if so, whether execution of an additional 
problem is to be initiated. QKNINT is the calling routine that 
begins execution of a problem. The first step is INITIALIZATION 
which includes reading of title cards as well as integer and 
floating point NAMELIST input. 

DISCRETIZATION is then called to establish a finite element 
gridwork of the elliptic solution domain as specified in INPUT. 

3 D B R Variant of COMOC employs simplex (linear) functionals scan- 
ning triangular shaped two-dimensional finite elements as approx- 
imation functions, Eg. (19). Using a natural coordinate function 
specification [Ref. 1, 7], accurate determination of the finite 
element matrices is achieved including those that are highly non- 
linear. All matrix expressions are determined in terms of stan- 
dard matrices and/or standard matrix multipliers. For example, 
the first term in Eq. (22) is standard for all dependent vari- 
ables. Assuming the general i zed diffusion coefficient is dis- 
tributed over the m tt1 element as a dependent variable, obtain 
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*[{*>, k Kq*, k dT = 


’{♦}. k {K>J{+H*}I k {q>dT 


R 


m 


m 


K{K}^{B10}[B211S]{Q> m (25) 


In Eq. (25) and the following, matrices with B prefixes are 
standard two-dimensional forms defined in Table 1 ^ For Eq. (22) 
identified with each dependent variable, fm and g m universally 
contain the nonlinear convection term and the i ni tial -val ue 
operator as dominant terms. The finite element equivalent for 
convection is 


{(j) }pu*qt k dT = {(J)H<i)} 1 '{pu^} m {ii)}I k {Q) ni dT 


m 


m 


= [B200S]{pir} m {Bn} T {q} m (26) 

where the elements of the vector, {pu£}, are nodal values of_the 
planar mass flux transformed to a local coordinate system. ihe 
initial -value operator, which comprises the mainstream convection 
term, similarly becomes 


j{$} pu^q?-] dr = f{,m + } T {pUl} m {L} T {Q} n ;dT 


= <pUl},J[B3000S]{q}' (27) 

where the matrix elements of [B3000S] are column matrices, see 
Table 1. The superscript prime exterior to a matrix denotes an 
ordinary derivative. 

Computational entry to the INTEGRATION module, for each 
dependent variable, is made through the inhomogeneous term in 
the differential equation, Eq . (15). For mainstream momentum, 
Eq. (5), this is the specified longitudinal pressure gradient. 
Therefore, in finite element matrix form 
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table: i 

STANDARD FINITE ELEMENT MATRIX FORMS FOR SIMPLEX 
FUNCTIONALS IN ONE- AMD TWO-DIMENSIONAL SPACE 









{ B1 0 }p , 


(28) 


For each species mass fraction, the equivalent expression involves 
the element distributed source term, S a , as 


U1S C 


[ B 20 0 S 3 {S a } 


(29) 


For non-constant, but equal Prandtl and Schmidt numbers, the 
energy equation, Eq. (7), has one source term. An integration 
using a Green-Gauss Theorem is appropriate; the generated sur- 
face integral vanishes yielding 


TrK (u j u j )s k dT 


W>. k (wp 


u*u* dx 
J J ■ !< 


■ ' R? < XM < {PR} > 3000S 3.f {UjVMnatUjJm (30) 

Solution of the matrix equivalent of Eq. (22) occurs in the 
INTEGRATION module, and is achieved using an explicit finite dif- 
ference integration algorithm for large systems of nonlinear, 
first-order ordinary differential equations. 3DBR COMOC employs 
a first order accurate, predictor-multiple corrector algorithm 
with an extended stability interval [Ref. 1, 8]. Identifying 

and pS + -| as the sequentially predicted values of the depen- 
dent variable q n+ i at the n + l st x-j station, the integration algo- 
i thm i s 
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( 31 ) 


pJ-H = a l % + bb l q n' 

Pn + 1 * a l 1 n + h[b ? P^l + b 2 


'n-M 


a ? p„ + h C b ? Pn + r + b 2 ^ 


The a. and b. are fixed coefficients, and h is the current 
integration ^tep-size, Ax] . The integration algorithm attempts 
to extremize integration step-size automatically, based udop 
internal error control. An estimation of relative truncation 
error is used of the form 

| RTE | » (32) 

If the relative truncation error associated with using the given 
integration step-size, h, to estimate the {n+l) st value of the 
dependent variable, is less than the user-supplied acceptable 
limit, the (n+l) st estimate for the dependent variable is accented. 
If the computed relative error exceeds the limit, the predicted 
values are discarded, a smaller step-size selected, and the oper- 
ations of Eq. (31) repeated. 


Following an integration sequence, entrance into the 
PARAMETER module Is made to evaluate the remaining solution pa- 
rameters and functions in terms of the newest distribution of 
dependent variables. Evaluation of node Point density and static 
temperature is made first; for binary, isoenergetic flows with 
temperature-independent specific heats, a simple quick running 
subroutine may be addressed. For the more complex case, COMOC 
can handle arbitrary frozen flow compositions, as well as the 
equilibrium composition of combustion of hydrogen/oxygen/air 
mixtures as a function of temperature, pressure, and relative 
concentrations of the elements, H 2 , O 2 , Ng» and Ar [Ref. 9]. The 
species considered are HgO, O 2 » H 2 , N 2 » Ar , 0, H, NO, and OH. 
Since all thermophysical properties are temperature dependent, 
initialization is based upon a user input total temperature dis- 
tribution. As a function of input pressure at initialization 
and the built-in tables of thermodynamic data, distributions of 
static temperature, frozen specific heat, and stagnation enthalpy 
corresponding to input total temperature are determined using an 
iteration algorithm based uoon the method of false position. All 
solutions following initialization are based upon iteration to 
equilibrium composition using computed nodal static temnerature 
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as the convergence parameter. The iteration on temperature is 
assumed to have converged when the difference between successive 
iterates is less than 0.001 non-dimensional. 

After convergence to a static temperature, the equilibrium 
constants for chemical reaction are calculated from the Gibbs' 
function. Composition is then determined using a modified Newton 
Raphson iterative procedure for solution of a system of nonlinear 
algebraic equations. Once the nodal species equilibrium (or fro- 
zen) composition is determined, enthalpy, entropy, molecular 
weight, and specific heat are calculated for mixtures of ideal 
gases in terms of the computed species mole fractions, X a . The 
computed composition, X 01 , is based upon solution of the nonlinear 
equilibrium equations for mole fraction of hydrogen, atomic oxy- 
gen, and the square root of molecular nitrogen at nodes of the 
discretization, using a Newton-Raphson iteration algorithm. A 
maximum of thirty iterations are allowed for the solution to 
converge within 10 ~°. In only a few cases has non-convergence 
occurred, always within a few degrees of the threshold tempera- 
ture for dissociation. For these solutions, the equations are 
resolved assuming that dissociation is negligible, i.e., the mole 
fractions of H, 0, OH, and NO are negligibly small in comparison 
to H 2 , 0 2 , N 2 , and H 2 0. 

The next parameter evaluation is solution of the continuity 
equation for u £. An evaluation of (puf),] is first required, 
since no streamwise derivatives of a dependent variable can be 
formed before the distribution of all variables is known in a 
plane. In the discretized solution, the actual requirement is to 
establish {pUlK; the following second-order accurate finite, dif- 
ference formula is employed. 


{pUl} 


" +1 = h nVl th n * h n+l T [ 


h n (2l Vl + h n HpU 1 } n+l 


- (h„ + % + 1 ) 2 tpUl} n + 


(33) 


In Eq. (33), h n +l and h n are the x-] integration step-sizes, 
respectively, between tne current x-j station, Xn+i , and the 
previous two stations. An analytic expression is then estab- 
lished for the X2 distributions of mass flux derivative using 
a 2 n ' order running -smoothi ng polynomial generator over appro- 
priate sequential panels of data. Using a unit step for the 
weighting function, ©, Eq. (24) is integrated directly as 

2 x k+1 

i(puf) - k | o a k( x 3> ~f+T~ (34) 
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Evaluation of Eq. (34) is repeated along each node column at 
each x-j station. 

Several additional subroutine calls then comnlete the 
parameter evaluation phase. Included herein is evaluation of 
an integral mixing parameter, pertinent to cold flow hvdrogen- 
air mixing problems, and the skin friction and wall Stanton 
number distributions. Additional calls are made to evaluate 
the two-dimensi onal distribution of Prandtl and Schmidt numbers. 
An input data table is interrogated to evaluate the local static 
pressure and the longitudinal pressure gradient. The nodal 
distribution of laminar viscosity, as well as turbulent eddy 
viscosity if being used, is then determined. The parametric 
sequence is terminated with a call to subroutine SOURCE which 
evaluates the dependent variable initialization arrays for the 
next integration step forward. The integration execution nhase 
is then completed. Fig. T, with a test to establish if the 
solution is complete and/or if an outnut call is required. 
Following these tests, execution is returned to INTEGRATION 
to repeat the same sequence of operations. 


PROGRAM DESCRIPTION 


The 3DBR Variant of COMOC is written to be readily executed 
on any large scale computer such as an IBM 360, 370, CDC 6600, 
or UNIVAC 1108. It is programmed in FORTRAN IV exclusively, ex- 
cept for certain machine-dependent routines, e.g., date, address, 
error handling, etc. With overlay, COMOC uses about 60K words 
on an IBM 360 for a solution region involving about 200 nodes 
and about twelve degrees of freedom per node. Output can be 
stored on tape or punched cards for future restarts. 

Considerable effort has been devoted to construction of 
3DBR COMOC in a uniform and consistent manner. A comprehensive 
subroutine substructure is utilized to allow functional proces- 
sing in a consistent and readily followed sequence. Innut for- 
mats are consistent and flexible, and program input controls are 
standardized. Consistent notation of variable names is employed 
in all subroutines, and only three major arrays are maintained. 
The common block /VARBLE/ contains the IARRAY and the RARRAY. 

The IARRAY contains a list of all the integers used in common 
throughout the program in locations 1 thru 200. Locations 201 
thru 400 contain the entry locations in the 17. array where di- 
mensioned variables are stored. The RARRAY contains a list of 
all the real scalers used in common throuahout the program. The 
common block /ARRAYS/ contains the IZ array. This array contains 
all the variable dimensioned vectors, matrices and hollerith data 
which are used by the nrogram . Shown in Table 2 is a listing of 
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the MAIN link of COMOC, and Table 3 presents the overlay structure 
of the program for the IBM 360/65 computer. 

The source listing of 3DBR COMOC is not included in this 
document due to its excessive length. The following pages of 
this section contain descriptions of the subroutines of 3DBR 
COMOC, followed by macro-flow charts of their functional 
sequenci ng . 


TABLE 2 



MAIN LINK 

OF COMOC. 

"5 /' 


BDINPT 

LINK3 

LOC 

OUT V EC 

SCHPRN 

MAIN 

LOCATE 

PSIBC 

SUTHLD 

LINK4 

LOOK 

RECIP 

SETDIF 

A B SAVE 

MAT SUM 

RESET 

LINK2 

ASMVEC 

MINMAX 

SETVAL 

RITE 

AVRG 

MPRD 

TENDA 

LINKS 

GENOA 

MTRA 

VARMAX 

LINK! 

GMADD 

NBNDRY 

VECTA 

READER 

INITBL 

OUTNOD 

XYSCAL 
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TABLE 3 


OVERLAY STRUCTURE OF CGMOC FOR IBM 360/65 COMPUTER 
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^\/c»y\ .\ v AlP'liv 
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r' ( T *7 Y :': ;*A l ■'■■.■. V . 
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OKIGINAI* PACK » 
OF POOB QUAIITV 


THE FOLLOWING PAGES CONTAIN A BRIEF DESCRIPTION OF THE SUBROUTINES 
IN THE COMDC COMPUTER PROGRAM, 


NAMES IN PARENTHESES INDICATE CALLING ROUTINES. 

IF NO NAME IS ENTERRED THEN SEVERAL ROUTINES PLACE CALL * 

MAIN 

THIS IS THE MAIN CONTROL PROGRAM TO INITIALIZE THE IZ ARRAY 
THE RARRAY AND THE IARRAY TO ZEROES, 

TO INCREASE THE CAPACITY OF THE PROGRAM TO HANDLE MORE NODES 

IT IS ONLY NECESSARY TO INCREASE THE DIMENSION OF THE IZ ARRAY. 
AFTER INITIALIZATION THE CONTROL ROUTINE BDlNPT IS CALLED. 

RDINPT C M A IN I 

THIS IS THE CONTROL ROUTINE TO INITIALIZE VECTORS AND TO CONTROL 
THE FLOW OF THE PROGRAM ACCORDING TO USER INPUT. 

A CONTROL CARD WITH THE FOLLOWING PARAMETERS IS READ IN - 


PARAMETER 

FORMAT 

CARD COLS. 

DESCRI P T I ON 

VI 

A8 

1 - 8 

CONTROL VARIABLE. 

NX 

12 

9-10 

INDEX FOR ROUTINE OR CALL LIST. 

NPCD 

IS 

11 - 15 

START POS. FOR PDUMP. 

NREPET 

IS 

16 - 20 

END POS. FUR PDUMP. 

NMUL 

1015 

21 - 70 

A. NMUL < 1 ) = RESTART TAPE. 

NMUL (2) = RESTART PRINT NO. 
NMULI3) = NEW RESTART TAPE. 

B. NMUL ( l ) THRU NNU L( 3 ) ARE 
SCANNED TO FORM A MULTIPLIER 
FOR REAL INPUT. IF ALL ZERO 
THEN 1.0 IS USED. 

RTNE 

A8 

71 - 78 

ASSOC. WITH VI = L I NKL THRU 


LINKS. DENOTES NAME OF ROUTINE 
TO BE CALLED. 

(NOT USED 3 Y PROGRAM) 


IF KDUMP = I IN NAMEOl, THEN THE ENTIRE INPUT CARO IS PRINTED 
IMMEDIATELY AFTER BEING READ FOLLOWED BY THE DATA THAT IS BEING 
STORED ALONG WITH THE DATA'S ENTRY POSITION IN THE IZ ARRAY. 

THIS ROUTINE LOOKS FIRST FOR A MATCH OF VL WITH CERTAIN KFY WORDS 
WHICH WILL EITHER CAUSE A SUBROUTINE TO BE CALLED OR PROGRAM 
FLOW TO OCCUR. 


THE KEY WORDS THAT ARE SCANNED ARE - 


BBBBB (BLANK) 
COMOC 
COMTITL E 
OESCRIPT NX 


RETURN TO SCAN ANOTHER CARD. 

PRINT THE COMOC TITLE PAGE TWO TIMES. 

READ A TITLE CARD WHICH WILL APPEAR ON CUMOC. 
CALL DSCRPT AND PROCESS ACCORDING TC NX. 


1.9 


END 


— 

RETURN CONTROL TO MAIN PROGRAM, RESET ARRAYS 
AND RETURN TO BDINPT * 

EXIT 


- 

CALL EXIT. 

FEBL 


-• 

SET IBL = 1. 

FEDIMN 


— 

CALL DIMENSIONALI 7ATION ROUTINE FEDIMN. 

FENAME 


— 

CALL FENAME TO SET DEFAULT SCALARS AND THFN 
CALL NMELST TO READ IN NAMEOL AND NAME02 
NAME LI STS. 

FENS 


- 

SET IBL = 0. 

ICOND 


— 

CALL ICOND TO PRINT REAL AND ITEGER SCALARS. 

INTEGER 



ALLOWS NEW VALUES TO BE READ INTO A SEQUENCE 
OF LOCATIONS IN THE BORDER, IPLACE AND LOC 
VECTORS. 

KBNO 

NX 

- 

ENTER BOUNDARY NODES FOR PEP. VAR. NX. 

L INK I 

NX 

- 

CALL LINKl(NX) 

LINK 2 

NX 

- 

CALL L I NK2 ( NX) 

LINK3 

NX 

- 

CALL LINKB(NX) 

LINK4 

NX 

- 

CALL LINKMNX) 

LINKS 

NX 

- 

CALL L I NK5 t NX) 

NAMEL 1ST 


— 

CALL NMELST TCI READ IN NAMEOl AND NAMEQ2 
NAMELISTS. 

PDUMP 

NX 

■ 

CALL PDUMP ( I Z ( NPCD3 , IZINREPET), NX ) 

QKNINT 



CHECK FOP DR HOB L OR DRHOGS USAGE. 

COMPUTE DIFFUSION COEFFICIENTS. 

COMPUTE SKIN FRICTION AND STANTON NUMBER. 
INITIAL I ?E GAS ROUTI NES. 

PRINT INITI ALIZATION CONTROLS. 

CALL QKNINT. 

REAL 


— 

ALLOWS NEW VALUES TO BE READ INTO A SEQUENCE 
OF LOCATIONS IN THE VALUE AND NPLACE VECTORS 

RESTART 



ALLOWS USER TO USE OUTPUT FROM A PREVIOUS 
RUN FOR RESTARTING AND ALSO TO DFF1NE A NEW 
DATA SET TO SAVE OUTPUT FOR A FUTURE RESTART 

HOL 1ST 



READ IN A SEQUENCE OF TITLES TO COINCIDE 
WITH A SCALAR OUTPUT LIST WHICH WILL APPEAR 
AT THE BEGINNING OF EACH OUTPUT DISPLAY. 

VYY END 

NX 

- 

DFNOTES END OF INPUT FOR DEP. VAR. NX. 

VYYRDF 

NX 


ALLOWS USER TO REDEFINE SELECTED ENTRIES 
EITHER IN A DEPENDENT VARIARLF OR ONE OF 
THE OTHER REAL VECTORS. 


IF NEITHFR SITUATION OCCURS, 

THE VECTORS BORDER AND VALUE ARE SCANNED UNTIL A NATCH IS FCUNU 
AND THE LOCATION IS STORED IN THE PARAMETER * K* . 


BORDER IS A VECTOR OF CONTROL NAMES WHICH IS 
INPUT CONTROL FOR INTEGER INPUT. 


SCANNED WITH THE USER 
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IARRAYI IPLACE(K) ) = LOCATION IN THE IZ ARRAY AT WHICH TO BEGIN 
STORING INTEGER ENTRIES. 

I ARRAY ( LOC l K J ) = NUMBER OF ENTRIES STORED STARTING AT 

I ARRAY (IPLACEIK)). 


IF NX .NE. -1, CALL GETBND TO ENTER INTEGER DATA. 
IF NX .EQ. -li CALL ADDDEL TO ENTER INTEGER DATA. 
SEE GETBND FDR INPUT DESCRIPTION. 


BORDER 

IPLACE 

LOC 


THICK 

268 

93 

ELEMENT THICKNESS VECTOR. 

IPINT 

205 

31 

SOLUTION SEQUENCE VECTOR* 

PLOTS 

311 

113 

PLOT VARIABLE AVECTOR. 

NMAT 

315 

98 

MATERIAL NUMBER VECTOR. 

MELEM 

316 

14 

MATERIAL TYPE/ELEMENT VECTOR. 

PLOTYP 

312 

113 

TYPE OF PLOT/VARIABLE VECTOR. 

[CALL 

321 

125 

LINK NOS. TO BE CALLED AT END OF QKNUIN. 

ICALLS 

322 

125 

ENTRY IN LINK TO BE CALLED. 

IOMULT 

323 

60 

OUTPUT VARIABLE MULTIPLIER FROM RARRAY. 

IDS AVE 

324 

60 

VARIABLE LIST TO BE DISPLAYED AT OUTPUT. 

CNTPTS 

327 

47 

CONTOURS NODES TO BE USED IN CONTES 
AND DFCFBL. 

CNTNDS 

328 

128 

NO. OF NODES IN EACH CONTOUR LINE. 

IBORD 

238 

131 

COUNTER-CLOCKWISE LIST OF BOUNDARY. 

IONUMB 

331 

142 

LIST OF ENTRIES IN RARRAY TO BE 
DISPLAYED AT START OF EACH OUTPUT. 

MPARA 

335 

142 

LIST OF MULTIPLIERS IN RARRAY USED 


TO MULTIPLY IONUMB ENTRIES. 

VALUE IS A VECTOR OF CONTROL NAMES WHICH IS SCANNED WITH THE USER 
INPUT CONTROL FOR REAL INPUT- 

lARRAY(NPLACEtK) } = LOCATION IN THE IZ ARRAY AT WHICH TO BEGIN 
STORING REAL ENTRIES. 

ROUTINE REDREL IS CALLED AT THIS TIME TQ ENTER DATA. 


VALUE 

NPLACE 


VTHICK 

270 

VALUE OF ELEMENT THICKNESSES. 
DEFAULT = 1.0 / ALC 

VRHO 

284 

DENSITY AT NODE POINTS. 
DEFAULT = RHOINF 

VTTAB 

219 

TABLE LOOK-UP TEMPERATURES, 
DEFAULT = 1090.0 

VCPTAB 

218 

TABLE LOOK-UP SPECIFIC HEATS. 
DEFAULT = 0.24 

vxicor 

289 

XI— COORD I NATES AT NODE POINTS 
DEFAULT * 0.0 
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VX2C0R 


290 

VH 279 

VP5TAT 281 

VPLTSCL 313 

VAKTAB 317 

VAK2TAB 318 

VPRESS 291 

VSCHMiDT 314 

VYY 282 

VTEMP 285 

VTK 238 

VSUTHLD 333 

VPRANDTL 334 

VX3ST 339 

VPVSX 340 

VEPS1L0N 336 


X2-CQ0RDINATES AT NODE POINTS. 

DEFAULT = 0.0 

ENTHALPY DISTRIBUTION AT NODE POINTS. 

DEFAULT = 0.0 

STATIC PRESSURE AT NODE POINTS. 

DEFAULT = PINF / {RHOINF * UINF**2 ) 

SCALE FACTORS FOR PLOT VARIABLES. 

DEFAULT = 1.0 

DEFAULT - 1.0 

DEFAULT = 1.0 

PRESSURE VALUES AT NODE POINTS. 

DEFAULT = PINF 

SCHMIDT NO. DIST. AT NODE POINTS. 

DEFAULT = 0.7 

DEPENDENT VAR. DIST. AT NODE POINTS. 

DEFAULT = 0.0 

TEMPERATURE DIST. AT NUDE POINTS. 

DEFAULT = TOFINF 

THICKNESS OF ELEMENTS IN THICK VECTCR. 

DEFAULT = 1.0 / ALC 

MURFF, T REF i TCON AND EXP ENTRIES FOR SUTHLD. 

DEFAULT = . L163F-4, 494. 0. 204.0, 1.5 
PRANDTL NO. DIST. AT NODE POINTS . 

DEFAULT = 0.7 

DOWNSTREAM STATIONS AT WHICH PRESSURE IS Of F 1 1 
DOWNSTRF AM PRESSURES AT VX3ST. 

TURBULENT VISCOSITY AT NODE POINTS. 

DEFAULT 0.0 


LINK l 

PLACE CALLS TO THE FOLLOWING ROUTINES. 

1. SETUP 

2. NODELM 

3. GEOMFL 

4. DPDXTB 

5. GETPPR 

6. SOURCE 
8. DERVBL 

LINK2 

PLACE CALLS TO THE FOLLOWING ROUTINES. 

1. DFCFNS 

2. DFCFRL 

3. WLFLXS 

4. CONTFS 

5. REOUTP 

6. FEOUTP 

IF RESTART CODE 'NRTAPE* IS GREATER THAN 0, WPITF RESTART 
CONDITIONS ON TAPF 1 NRTAPF*. 

10. DRHOBL 
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11* DRHOGS 
12. H2MIX 

LINK3 

PLACE CALLS TD THE FOLLOWING ROUTINES. 

1. NBNDRY 

2- RITE - PRINT OUTPUT HEADING 

4. OIMEN 

LINK4 

PLACE CALLS TO THE FOLLOWING ROUTINES. 

2. QKNUIN 

6. INITNS 

7. INITBL 

LINKS 

PLACE CALLS TO THE FOLLOWING ROUTINES. 

2- CALL ROUTINES FROM ICALLS LIST IN LINK FROM ICAtL LIST. 

3. CPINIT 

5. SCHPRN 

6. SETOIF 

ABSAVE ( CERVBL) 

COMPUTE THE SUM OF ABSOLUTE VALUES OF A SEQUENCE OF NUMBERS. 
ADODEL I EL EM , GETBND, SETUP) 

ADD OR DELETE ENTRIES IN AN INTEGER ARRAY DEPENDING ON THE 
VALUE OF ' KODE' . 

KODE = 1, DELETE 
KODE = 2, ADD 

AVRG 

COMPUTE THE ARITHMETIC AVERAGE OF * NUMB 1 ENTRIES IN AN ARRAY. 
BNDSET (GETBND) 

DETERMINE NODES TO BE INSERTED INTO BOUNDARY ARRAY. 

COLS ( 05 CRT Z ) 

COMPUTE THE NUMBER OF COLUMNS, *LCOL», IN THE OUTPUT DISPLAY 
AND SET UP THE FOLLOWING ARRAY, 

I NCQL - NO. OF NODES IN COLUMN J- 
COMOC (BDINPTJ 

THIS ROUTINE PRINTS TWO TITLE PAGES ALONG WITH THE DATE. 

CONTES ( L INK2( 4 ) ) 

RUNNING SMOOTH CONTINUITY EQUATION SOLVER TO COMPUTE V AND W 
UP A COLUMN OF NODES AFTER VSTART HAS BEEN RFACHED. IF NCOORD 
EQUALS 1, INPUT NODES IREAO IN AS CNTPTS AND CNTNDS ) ARE USED 
INSTEAD. 

,CP INIT (DIMEN) 

COMPUTE CP INF AT TSINF. 

THE VECTOR CP IS RESET TO CPINF. 

DELADD (ADDDEL) 

ADD EN'lRIES TO AN INTEGER ARRAY • NSI DE 1 AT A TIME. 

DEL ELM (DELNOD) 

DELETE ENTRIES IN AN INTEGER ARRAY 'NSIOE> AT A TIME. 

DELETE ( DSCRTZ ) 
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DELETE NODES THAT ARE NOT CONNECTED TO ANY ELEMENTS. 

DELNOD ( ADOD6L) 

SET UP CALL TO DELFLM AND SUPPRESS ZERO ENTRIES IN ARRAY. 
DERSET IDERVBL) 

COMPUTE Q*RHO FOR Q = U, V, OR W. 

DERVBL (LINKH8H 

FORM THE DERIVATIVE OF THE ORDINARY DIFFERENTIAL EQUATION FIRST 
ON U-VELOCITY (GLOBAL CONTINUITY! AND THEN ON OTHER DEPENDENT 
VARIABLES INCLUDING SPECIES CONTINUITY, ENERGY, LUNGT ITUO INA L 
AND LATERAL MOMENTUM, IF REQUIRED. 


DESCRP(N) ( BDINPT } 

N = 0,1 READ TITLE FOR OUTPUT. 

N = 2 READ HEADINGS FOR OUTPUT VARIABLES. 

N = 3 READ AND WRITE SELECTED VARIABLES FROM I ARRAY OR RARRAY 

FOR PROBLEM DESCRIPTION. 

IF ENTRY IS NEGATIVE - SELECT I ARK AY ENTRY 

IF ENTRY IS POSITIVE - SELECT RARRAY ENTRY. 

DFCFBL t LINK 2(2!) 

COMPUTE MIXING LFNGTH DIFFUSION COEFFICIENTS FOR DEPENDENT VARIABLES. 
IF NE1E2 = l THE TURBULENT CURVE FI IS USED. 

IF NE1E2 = 2 THE TURBULENT CURVE El IS USED UNTIL ROW L M AX 

IS REACHED AND THEN THE LAMINAR FLOW CURVE E2 IS USED. 

DFCFNS { L INK 2( L ) } 

SET THE TEMPERATURE AND DENSITY IF NOT INITIALIZED. 

CALL DFCOFG TO COMPUTE VISCOSITY (AMU VECTOR!. 

DFCGFO (DFCFNS) 

ESTABLISH THE NODAL VALUES OF VISCOSITY USING SUTHERLAND’S 
EQUATION FOR AIR. 

01 MEN ( L INK 3 ( A J ) 

COMPUTE 'ALC* IF NOT INITIALIZED IN ’NAME02 *. 

PUNCH COORDINATE CARDS, IF DESIRED (NPUNCH = 7). 

COL - XI COORDINATE OF COLUMN J. 

ROW - X2 COORDINATE OF ROW I. 

DPDXTB ( L INK 1(4! } 

COMPUTE DPDX FROM PRESSURE TABLE, OPDX IS CONSTANT OVER INTERVALS. 
DRHCBL (LINK2I10!) 

CALLED IF IGAS = 0 IN NAMFOL. 

COMPUTES THE TEMPERATURE ANO DENSITY USING A SIMPLIFIED 
ENERGY EQUATION. 

DR FOGS ( L INK 2(11)) 

CALLED IF IGAS = 1 IN NAMFC1. 

COMPUTES THE THEMERATURE, DENSITY AND SPECIFIC HEAT UN A NCDAL 
BASIS AS A FUNCTION OF ENTHALPY, VELOCITY AND SPECIES 
COMPOSITION. 

IF NGETH = I IN NAM E01, THE FIRST PASS THROUGH THIS ROUTINE 
WILL RETURN ENTHALPY WHEN GIVEN THE TOTAL TEMPERATURE AT 
AT THE NODFS. 

DSCRTZ I SETUP) 
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I 


SET UP REGION DI SCRET IZAT IGN . 

GENERATE ARRAYS USED FOR FINDING OUTPUT LOCATIONS- 
ELEN ( DSCRTZ ) 

IF NELEM = 0 IN NAMEOt, GENERATES ELEMENTS AS A FUNCTION CF 

NODE COORDINATE INPUT- USED PRIMARILY FOR RECTANGULAR DOMAIN. 
ENERSC {SOURCE) 

COMPUTE SOURCE TERMS FOR ENERGY EQUATION. 

ERRSET (MAIN) 

IBM 360 ERROR HANDLING ROUTINE TO SUPPRESS OVERFLOWS ETC. 

FEDIMN (BDINPT) 

SET UP DIMENSIONS OF VARIABLE LENGTH ARRAYS USED IN THE 
SYSTEM. FINOS LOCATIONS OF OUTPUT ARRAYS FOR "FEOUTP 8 . 

PRINT LOCATION OF ENTRY POINTS IN « I Z » ARRAY IF KDUMP = l, 
FENAME { BDINPT) 

THIS ROUTINE CONTAINS A LIST OF ALL EQUIVALENCE VARIABLES ALONG 
WITH AN ALPHABETICAL CROSS-REFERENCE. 

CALL NMEL5T TO READ IN NAME 01 AND NAMEQ2 NAMELISTS. 

MOST DEFAULTED PARAMETERS ARE SET ALSO SET HERE. 

FEPLOT ISTOUTl) 

AT PRESENT , ALLOWS FOR PUNCHING DATA AT PLOT STATIONS. 

FINDBE (BDINPT) 

DETERMINE A SERIES OF BOUNDARY ELEMENTS AS A FUNCTION CF 
OF INPUTTING BOUNDARY NODES IN COUNTER-CLOCKWISE ORDER. 

ON FIRST PASS, FIND BORDER ELEMENTS IF READ INTO IBCRD VECTOR. 
FSTAE (MAIN) 

IBM 360 ROUTINE TO SUPPRESS FORTRAN ERRORS. 

GAS (GPAHFT) 

DETERMINE COMPOSITION AT SPECIFIC TEMPERATURE TO CREATE 
ENTHALPY REQUIRED FOR CONVERGENCE. 

GASBUG (GAS) 

PRINT DEBUG INFORMATION FOR GAS ROUTINE. 

GENOA 

ASSEMBLE AN ELEMENT VECTOR WHEN GIVEN THE GLOBAL VECTOR AND 
A LIST OF NODES PERTAINING TQ THE ELEMENT VECTOR. 


GEOMFL ILtNKlO}) 

SET UP THICKNESS ARRAY. 

GENERATE THE TRANSFORMED LENGTH OF ELEMENT AND STORE IN XI2 VECTOR 
GENERATE THE TRANSFORMED HEIGHT OF ELEMENT AND STORE IN X23 VECTOR 
GENERATE THE V PART OF THE B2001 MATRIX AND STORE IN GEOMI MATRIX. 
GENERATE THE W PART OF THE 6200L MATRIX AND STORE IN GE0M2 MATRIX. 
GENERATE LENGTH * THICKNESS ARRAY. 

GENERATE AREA * THICKNESS ARRAY. 

GENERATE THE NON-STANDARD ELEMENT MATRICES B211 AND B2I1S. 

IF KODG IS GREATER THAN 0, PRINT ELEMENT NO., NODES CF ELEMENT, 
COORDINATES OF NODES AND B211S ENTRIES FOR ELEMENT. AFTER 
THE ELEMENT LOOP IS COMPLETED, PRINT THE VECTORS AND MATRICES 
THAT WERE GENERATED IN THE ELEMENT LOOP. 

GET ADD (FEDIMN) 
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360 ASSEMBLER ROUTINE TO GET MACHINE ADDRESS OF VARIABLE, 

GETALC t DIMEN ) 

COMPUTE * ALC 1 AS THE, SHORTEST SIDE OF ALL THE ELEMENTS IF 
IT IS NOT READ IN, 

GETBND { BDINPT J 

BOUNOARY UR INTEGER GENERATION ROUTINE USING EITHER THE WORDS 'ADD' 

OR 1 DEL ET E' OR SIMPLE GEOMETRY OF THE PROBLEM WITH THE FOLLOWING 
KEYWORDS AND CODES - 

EACH CARD IS DIVIDED INTO FOUR IDENTICAL BLOCKS OF 20 COLUMNS EACH. 
ALL BLOCKS ARE SCANNED FOR SIMILAR INFORMATION SC A DESCRIPTION 


OF ONE 

BLOCK WILL BE 

GIVEN. 

THE BLOCKS START IN CCL. 1, 

COL. 21 

, COL. 41 

AND 

COL. 61 

* 

KEYWORD 

FORMAT 

BLOCK COLS. 

DESCRI PTI ON 

{ BLANK ) 

A8 

1 - 

8 

IGNORE RLOCK 

ADD 

AS 

1 - 

8 

CALL ADDDEL TU INSERT ENTRIES. 
IGNORE COL. 9 - 20. 

OELETE 

AB 

1 - 

8 

CALL ADDDEL TO DELETE ENTRIES. 
IGNORE COL. 9 - 20. 

FOR THE FOLLOWING 

KEYWORDS, THE THREE CODES { WE * LL CALL THEM 

KODElt K0DE2 AND K0DE3 
NODES WILL BE SELECTED) 

FOR CONVENIENCE) WILL DETERMINE WHICH 

K0DE1 

14 

9 - 

12 

ROW OR column displacement frum 
EDGE BEING DESCRIBED. 

K0DE2 

14 

13 - 

16 

PCS. IN LINE TO START { DEF, = FIRST) 

K0DE3 

14 

17 - 

20 

PQS. IN LINE TO END CHEF . = LAST ) 

KEYWORD 

FORMAT 

BLOCK 

COLS. 

DESCRIPTION 

TOP 

A8 

1 - 

8 

ACROSS TOP FROM LEFT TO RIGHT. 

-TOP 

A8 

I - 

8 

ACROSS TOP FROM RIGHT TO LEFT. 

BOTTOM 

A8 

1 - 

8 

ACROSS BOTTOM FROM LEFT TO RIGHT. 

-BOTTOM 

AS 

1 - 

8 

ACROSS BOTTOM FROM RIGHT TQ LEFT. 

RIGHT 

A 8 

1 - 

8 

UP RIGHT HAND SIDE. 

-RIGHT 

A8 

1 - 

8 

DOWN RIGHT HAND SIDE. 

LEFT 

A8 

l - 

8 

UP LEFT HAND SIDE. 

-LEFT 

A8 

1 - 

8 

DOWN LFFT HAND SIDE. 


GET PPR { LINK 1(5] ) 

TABLE LOOK-UP OF PRESSURE AND DPDX AS FUNCliJN OF DUWNSTRFAM STATION. 
GMADD 

GENERAL MATRIX ADDITION. C - A * B 
GPAHFT { THFRMO ) 

IF NGETH = It COMPUTE ENTHALPY DISTRIBUTION. 

IF NGETH = 0, COMPUTE CPCINF AND RHOINF. 

IF NGETH .LT. Ot DETERMINE NODAL TEMPERATURE GIVEN PKFSSURE, 
COMPOSITION AND ENTHALPY. 

H2MIX { L INK2 ( 121) 

COMPUTE THF MIXING EFFICIENCY HR SHOT AND THE MASS FLOW HDDT . 

ICQND I BDINPT) 


PRINT INTEGER AND REAL INITIAL CONDITIONS. 

IARRAY(i) “ 1 ARR AY C 200 ( 

RARRAYU) - RARRAY 1200} 

INITNS (LINK4I6H 

INITIALIZE DEPENDENT VARIABLES. 

THIS ROUTINE GOES THROUGH AN ELEMENT LOOP IN CASE THE VALUES 
OF THE DEPENDENT VARIABLES DEPEND ON THE GEOMETR r Y OF THE PROBLEM. 
LOC ( MPRO 1 

COMPUTE VECTOR SUBSCRIPT FOR AN ELEMENT IN A MATRIX OF 
SPECIFIED STORAGE MODE. 

LOCATE 

FINC THE LOCATION OF *M S IN THE ARRAY ' N A * AND STORE IT IN ‘ N* . 
LOOK i CP IN I Tt DRHDNSJ 

LINEAR INTERPOLATION ROUTINE (USED ONLY FOR ‘CP* AT PRESENT). 

LSFT (MISDIV) 

GENERATE A LEAST SQUARES FIT THRU A SERIES OF POINTS. 

MATSUM 

COMPUTE A( I) = 31 I ) * COEF * Cl I) , I - I , N 
MINMAX I OSCRTZ , ORDER, SETSCLJ 

COMPUTE THE MINIMUM * MN c AND MAXIMUM ‘MX* ENTRIES IN AN ARRAY 
AT LOCATION «IMN» AND *IMX* IN THE ARRAY. 

MISCIV (CONTES) 

PQLYMIAL FIT THRU NPT POINTS TO THE MTH OROER. 

NPT MUST BE AN ODD NUMBER. 

ML T PL Y (PRESUR) 

INTERMEDIATE MUL T I PL ICATION FOR PRESUR ROUTINE. 

MNMX (EL EM) 

FROM A VECTOR < INA ' CONTAINING *NN * ENTRIES, STORE THE FOLLOWING- 
LOW - POSITION IN INA OF MINIMUM. 

LHI - POSITION IN INA OF MAXIMUM. 

MN - MINIMUM VALUE IN INA. 

MX - MAXIMUM VALUE IN INA. 

MPRD 

MULTIPLY TWO MATRICES AND STORE IN RFSULTANT MATRIX. 

R = A * B 
MTRA (GEOMFL) 

FINC THE TRANSPOSE OF A GENERAL MATRIX. 

NBNDRY (LINK3I Li ) 

THE VALUE OF *NB5ET B DETERMINES THE OPERATION OF HIS ROUT I NE, 

-L « SET UP INTEGRATION NODES AND STORE DEPENDENT VARIABLE 
INTO * YY * ARRAY. 

*1 a SET UP AND PRINT INTEGRATION NODES AND STORE DEPENDENT 
VARIABLE INTO ‘YY* ARRAY. 

0 = SET UP INTEGRATION NODES AND RETRIEVE DEPENDENT VARIABLE 
FROM »YV* ARRAY. 

NDECRD ( DSCRT l ) 

GENERATE NODE COORDINATES, IF NNODE = 0 IN NAMEQL. 

NMELST (FENAME, BDINPT) 


READ NAMELIST DATA INPUT. 

NAMFOl = INTEGER INPUT. 

NAME02 = REAL INPUT. 

NCDELM ( L INK L( 2) ) 

SET UP THE ARRAY IELS TO BE USED IN DRHONS. 

I ELS = NO. OE ELEMENTS CONNECTED TU NODE N. 

CRDER (COLS, ROWS, XYSCAL) 

ORDER 3 ARRAYS ACCORDING TO THEIR XI AND X2 COORDINATES. THE 
THIRD ARR'AY WILL C0NT4IN THEIR ARRAY LOCATIONS. 

OUT NOD 

PRINT AN INTEGER ARRAY ALONG WITH A 32 CHARACTER TITLE. 

OUTPG ( GEQMFL ) 

PRINT THE ELEMENT NO. AND NODE CONNECTIONS AND NODE CCCRDI NATES 
FROM THE GEOMETRY ROUTINE 1 GF CMH T * . 

OUTVFC 

PRINT A REAL ARRAY ALONG WITH A 32 CHARACTER TITLE. 

PRLANK (REOUTPJ 

INSERT BLANKS IN THE OUTPUT VECTOR *P* (USED IN ’REOUTP'U 
PLILNK (REOUTP) 

CONVERT A FLOATING POINT NUMBER INTO 'A' FORMAT. 

POLY (MISDIVI 

FUNCTION TO GENERATE COEFFICIENTS CCI) IN Y = C. (I J * X**M 
OINIT (INITBL) 

CALL QINOl THRU QININEQ) DEPENDING ON VALUE OF *NP'. 

QINOL (OINIT) 

INITIALIZE DEPENDFNT VARIABLE 1 ( U- VELOC I TY ) . 

THF VALUES are FITHER STORFO IN a DATA STATEMENT TR COMPUTED 
ON THF GEOMETRY AND THEN ENTERRfcD INTO THE ELEMENT LCCATIONS. 

Cl NO 2 THRU QIN(NEO) (OINIT) 

SAME AS QINOl BUT FOR DEPENDENT VARIABLF NP. 

(JKNINT (BDINPT) 

PRINT DISCRETIZATION OF REGION ALONG WITH NODE NUMBER LOCATIONS. 

CALL 'QKNU1N' AND TRANSFER CALL TO »FFCUTP» AT PROPER TIMES. 

QKNUIN t L I NK4 ( 2 ) ) 

INITIALIAZE INTEGRATION CONSTANTS ON FIRST PASS. 

COMPUTE STEP SIZE AND NEW VALUE OF DFPFNDFNT VARIABLES. 

COMPUTE NEW DENSITIES, OlFFUSSION CUFF F I C I FN TS , VISCOSITY 
AND OTHER PARAMETERS OFPENOFNT UN THE NEW VALUES OF THE 
DEPENDENT VARIABLES. 

EIND THE MAXIMUM VALUE OF THE DEPENDENT VARIABLES AND STORE IN 7»<AX, 
IF ZM AX IS LESS THAN ZTEST THE TIME WILL BE SET TO TF AND THF 
PROBLEM WILL TERMINATE AFTER THE NEXT PRINTOUT. 


Q3CGNC (DFCFBL) 

COMPUTE A ROUGH APPROXIMATION OF THE AREA OF H2 CONCENTRATION AND 

STORE IN AREA. COMPUTE THE MASS DEFECT XMSDF = ROUALC * ( AREA— X SUM ) 
WHERE X SUM = AMUUNT OF H2 PRFSFNT AND POUAlC = RHOINF * ALC ♦ UINF**2 
RGATE (COMOC, R ITF ) 

ASSEMBLER ROUTINE TO GET MACHINE DA TF AND STORE IN 2 A4 FORMAT. 
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RECIP (CFCFNS, stout u 

COMPUTE THE RECIPROCAL OF AM ARRAY AND STORE TT INTO ITSELF. 

RE OREL (BDINPT, AODDEL ) 

SCAN AN 80 CHARACTER CARD IMAGE AND CONVERT THE INFORMATION THEREIN 
INTO REAL OR INTEGER NUMBERS ACCORDING TO THE FORMAT PRESCRIBED. 

REORDR (FINDBE) 

REORDER THE NODES OF AN ELEMENT SO THAT THE FIRST TWO HILL BE 
BOUNDARY NODES AND THEIR ORDER WILL BE COUNTER-CLOCKWISE. 

IN ORDER FUR THIS FEATURE TO OPERATE IT IS NECESSARY TO 
INPUT THE ORDER OF BOUNDARY NODES INTO THE I BORO VECTOR 
IN A COUNTER-CLOCKWISE ORDER. 

RFOUTP (LINK2I5)) 

PRINT THE ARRAY GEOMETRY AND NODE NUMBERS IN A PATTERN THAT 
RESEMBLES PROBLEM GEOMETRY. 

(FEOUTP) ( L INK 2( 6 } J FEOUTP IS AN FNTRY POINT IN REOUTP. 

PRINT OUTPUT PARAMETERS IN A PATTERN THAT RESEMBLES PROBLEM GEOMETRY. 

IF MAXIMUM SCALE FACTOR EXCEEDS *NSM» (DEFAULT = 10), TERMINATE 
THE PROBLEM. 

IF OUTPUT PRINT NO. ’KOUNT', EXCEEDS PRINT LIMIT 'LPRINT* (DEFAULT =100} 
TERMINATE THE PROBLEM. 

RESET 

RESET * NN * ENTRIES OF ARRAY 'A' TO THF VALUE ’V*. 

RITE (LINK 3(2)) 

COMPUTE * NUMBER = (KEY-LK10 F NMB • 

GO TO STATEMENT ACCORDING TO VALUE OF 'NUMBER’. 

IF ’NUMBFR* IS OUT OF RANGE, WRITE TITLE INFORMATION. 

SCALEV {FEOUIPJ 

CALL SCALE ROUTINE FOR 10 OUTPUT VARIABLES. 

SCHPRN (LINK5(5») 

COMPUTE THE SCHMIDT AND PRANDTL NUMBERS ON A NODE BASIS. 

ROWS (DSCRTZ) 

COMPUTE THE NUMBER UF ROWS, *KROW', IN THE OUTPUT DISPLAY 
AND SET UP THE FOLLOWING ARRAYS, 

INROW - NO. OF NODES IN ROW I. 

INDRW - COLUMN NUMBERS OF NODES IN ROW I. 

INDEX - ROW NUMBERS OF NODES IN COLUMN J. 

NOCOL - STARTING COLUMN NO. FOR ROW I. 

SETSCL (SCALEV) 

SET SCALE FACTOR FOR AN ARRAY OF RF A L NUMBERS, THUS NORMALIZING 
SETUP ( LINKI ( 1) ) 

IF NELEM -GT. 0, 

READ ELEMENT CONNECTIONS AND COUNT ELEMENTS ( ’NELEM* ). 

IF NNODE -GT. 0, 

READ NODE GEOMETRY AND COUNT MODES t’NNODE'). 

CALL 1 DS CRTZ ' TO SET UP OUTPUT DISPLAY ARRAYS. 

READ TITLE CARDS UNTIL THE WORD ‘DONE’ APPEARS IN COL. L-4. 

THE DEFAULT NO. OF CARDS TO BE ENTERREO IS 10, IF MORE NEED TD 
BE READ THEN SET ‘NT I TL * IH NAME01 EQUAL TO OR GREATER THAN THE 
NUMBER OF CARDS TO BE READ. 

SETVAL 
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COMPUTE Mil = Bill * C + U 
S IMG (GAS) 

SIMULTANEOUS LINEAR EQUATION SOLVER USED IN GAS. 

SOURCE (L INK L( 6) ) 

COMPUTE SOURCE TERMS FOR RTGHT HAND SIDE OF DIFFERENTIAL EQUATIONS. 
STQREV (SOURCE) 

STORE APPROPRIATE VAR I ABLE S IN DUMMY ARRAY FOR SOURCE COMPUTATION. 
STOUT 1 { FEOUTP ) 

DIMENS IQNALIZE OUTPUT VARIABLES FOR DISPLAY PURPOSES. 

CALL PLOT ROUTINE AT APPROPRIATE TIME , IF REQUESTED. 

SUTHLD (DIMEN, DFCOFO) 

COMPUTE VISCOSITY USING SUTHERLAND * S VISCOSITY LAW FOR AIR. 

TAUW (WLFLXSJ 

FIND TAU ALONG THE WALL FOR SKIN FRICTION COMPUTATIONS. 

TENDA 

ASSEMBLE GLOBAL VECTOR WHEN GIVE THE ELEMENT VECTOR AND 
A LIST OF NODES PERTAINING TO THE FLEMENT VECTOR. 

THERMO ( DR HOGS ) 

INITIATE CALL TO GPAHFT. 

VARMAX (FEPLOT) 

IF * NK * .GT. 0, FIND MAXIMUM ENTRY IN ARRAY. 

IF 'NK* .LT. 0» FIND MINIMUM ENTRY IN ARRAY. 

VECMAT (PRESUR) 

MULTIPLY A SYMMETRIC MATRIX OF VECTURS BY A VECTOR '.IF LENGTH NN. 

VECTA 

BOOLEAN ASSEMBLY OF AN ELEMENT VECTOR INTO A GLOBAL VFCTGP 
USING INTEGRATION NODE SEQUENCE. 

WLFLXS (LINK2( 3) ) 

COMPUTE THE SKIN FRICTION DISTRIBUTION AND HEAT TRANSFER DISTRIBUTION 
ALONG THE WALL. 

XYSCAL (CSCRTZ) 

COMPRESS AN ARRAY OF NUMBERS 'XI' BY SCALE FACTOR 'SOFT*. 

FIND * XY D= MAX ( Xl ) -M IN ( X l ) * SCFT« 

IF TWO ADJACFNT POINTS IF ARRAY »X1» ARE WITHIN ‘xYD« OF EACH 
OTHER, SET THE UPPER VALUE EQUAL TO THE U-^FR VALUE. 
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MAIN-1 














A 



: r t) v 


READ NAMES 

:p scalars to 


BE PRINTED 
































BDINPT-5 















BDINPT-7 




710 



— * , 

STORE DEPENDENT 
VARIABLE INTO PRESENT 
AND PAST LOCATIONS 
OF SPECIFIED VARIABLE. 



Rso] 



REDEFINITION OF 
VARIABLE. STORE 
OLD VALUES SO THAT 
ONLY OVERRIDDEN 
VALUES WILL BE 
ENTERED 


( 


FINDBE 


> 
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CALLED BY 
MAIN 






KK: 8 

V 


LINK1-1 



LINK2-1 



( CONTES 


RETURN 







LINK2-2 



CALLED BY: 
BDINPT 
GPAHFT 
LINK 5 
QKNINT 



41 


























ABSAVE-1 



CALLED BY 

DERVBL 

Q3C0NC 


45 
















AVRG-1 



CALLED BY 
GEOMFL 




BNDSET-1 



CALLED BY; 
GETBND 




COLS-1 



CALLED BY 
DSCHTZ 
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COMOC-l 


^COMQC 




RETURN 


CALLED BY 
BDINPT 



CONTES 



* 

COMPUTE COEFFICIENTS 
FOR U PRIME COMPUTATION 





CONTES 


__ 

COMPUTE UPRIME ON 
A NODAL BASIS 


± 

STORE RHO-U AND RHO"W 
INTO TEMP. VECTORS 


X 

EXECUTE A COLUMN BY COLUMN 
ITERATION TO COMPUTE NEW 
RHO“V AND RHO"W USING 
MISDIV TO GENERATE CO- 
EFFICIENTS. 



CALLED BY 
LINK2 








DELADD-1 




-Al. 


RETURN 


CALLED BY 
ADDDEL 





DELETE-1 



STORE NO. OF 
NODES ATTACHED 
TO ELEMENTS 


> 

/ 

SCAN 

ATTACHMENTS 


/ 


✓4l£v yes 
NODES X 
SCANNED,/ 


RETURN 


S NODE X 
.ATTACHED, 


PRINT 'NODE 
N DELETED - 
NO CONNECTIONS'/ 


CALLED BY 
DSCRTZ 





DELNOD-1 





CALLED BY: 
ADDDEL 
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DERSET-1 



DETERMINE ' 
Q*RKO ■ 

... J 



CALLED BY 
DERVBL 












DESCRP-l 



CALLED BY 
BDINPT 














DFCFBL 



CALLED BY 





















DIMEN 



CALLED BY: 
BDINPT 
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DPDXTB-1 



CALLF.D BY 
LTHK1 






DRHOGS 



* 

INITIALLY RUN 3 PASSE! 


PASS 

1 

- GET 

TOTAL ENTHALPY DIST. 



SET 

HINF 


PASS 

2 

- GET 

STATIC 

TEMP. DIST. 



Set 

TOFINF, 

PRSCON 

CPOINF, 

PASS 

3 

- GET 

DENSITY 

HEAT 

, SPECIFIC 


(^RETURN ^ 


CALLED BY 
LINK2 






DSCRTZ 


X 



CALLED BY: 
SETUP 
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SET UP 

INITIALIZATION 


i£ 

SCAN PAIRS OF ROWS STARTING 
WITH TOP ROWS AND WORK DOWN. 
WHEN A RECTANGULAR MATCH IS 
FOUND, FORM TWO TRIANGLES WITH 
DIAGONAL FROM LOWER LEFT TO 
UPPER RIGHT. IF A TRIANGULAR 
MATCH IS FOUND, USE IT. 


RETURN 



CALLED BY 
DSCRTZ 





ENERSC 



CALLED BY 
SOURCE 



FEDIMN-l 



CALLED BY: 
BDIUPT 










FINDBE-1 


E 



CALLED BY 
BDINPT 


5 





COMPUTE COMPOSITION USING A TRIAL AND 
ERROR ITERATION WHICH IS A MU LT I -VAR I ABLE 
ANALOG OF NEWTON’S METHOD. 



CALLED BY 
GPAHFT 







GASBUG-1 





CALLED BY: 
GPAHET 
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GENDA-1 


C 


GENOA 



/ 

ASSEMBLE 
ELEMENT 
VECTOR 
T TEL 1 

i 

f 


RETURN 


CALLED BY 
MANY 

ROUTINES 




GEOMFL-1 









3ETBND-1 



CALLED BY 
BDINPT 






GPAHFT-l 


GPAI1FT 


COMPUTE AND STORE 
MASS FRACTIONS 
AND 

MOLE FRACTIONS 


NGETH 

V' 


IBUG1 


TEMPERATURE 
V RIGHT X 


ITERATE UP TO 100 
TIMES TO FIND 
CORRECT TEMP. 


S .J 


STORE INITIAL 
DISTRIBUTION OF 
ENTHALPY, DENSITY 
AND SPECIFIC HEAT 



r 

C a j 
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X RIGHT x 
TEMPERATURI 


IBUG1 
: 0 


NONC 
: 0 


COMPUTE AND CHECK 
FOR EXIT 
CONDITIONS 


NBUG 

:2 


GPAHFT-2 


PRINT 

FAILURE 

AND 

CONDITIONS/ 


PRINT 
NO. OF 
INTER./ 


GASBUG 


PRINT 
NON- 
CONVERGENCE 
\ IN GAS / 




EXIT 





H2MIX-1 



COMPUTE 1 
MIXING EFFICIENCY j 
AND H2 MASS FLOW 



CALLED BY 



ICOND-1 



CALLED BY: 
BDINPT 
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GENERAL 

MATRIX 


SYMMETRIC 

MATRIX 



¥■ 




COMPUTE 
SUBSCRIPT 
(N ELEM. ) 








LOCATE-1 



( RETURN ^ 
V.„ y 
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CALLED BY: 
MANY 

ROUTINES 



LOOK-1 


* 



i 

•i 

I 


fj 


CALLED BY 

CPINIT 

GETPFR 




LSFT 


1 


e 


LSFT 


i 

A. 


POLYNOMIAL LEAST 
SQUARES FIT TO 
A CURVE 




RETURN 


CALLED BY 
MISDIV 


MATSUM-1 



CALLED BY 

GEOMPL 

QKNTJIN 

ENERSC 

SETDIF 




MINMAX-1 



CALLED BY 
DSCRTZ 
ORDER 
SETSCL 


94 







MNMX-1 



CALLED BY 




MPRD-1 



CALLED BY 

DERVBL 

GEOMPL 

H2MIX 

VECMAT ' 

ENERSC 



MTRA-1 



CALLED BY 
GEOMPL 




NBNDRY-1 



CALLED BY: 
LINK3 
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NDECRD-1 



CALLED BY 
DSCRTZ 







NODELM 



CALLED BY 
LINK1 





ORDER*-! 


CALLED BY: 
COLS 
ROWS 
XYSCAL 
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OUTNOD-1 


CALLED BY: 
FEDIMN 




OUTPG-1 


^ OUTPG 





CALLED BY 
GEOMPL 
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OUTVEC-1 



CALLE.: BY 

CONTES 

LINK? 

GEOMFL 

DERVBL 

GPAHFT . 





PLILNK-1 


PLILNK 


_ s 

^ 

CONVERT FLOATING 
POINT NO. TO 'A 1 
FORMAT FOR OUTPUT 





RETURN 


CALLED BY 
REOUTP 
(FEOUTP ) 




POLY-1 


POLY 



± 

COMPUTE 

POLYNOMIAL 

COEFFICIENTS 


RETURN 


V 


CALLED BY 
MISDIV 



Q3C0NC--1 



CALLED BY: 
DFCPBL 






QIN ( NP)-1 



112 


CALLED BY 
QINIT 
















QKNUIN-1 



COMPUTE PREDICTOR 
VALUES OP DEP. 
VARIABLES 


sE 

COMPUTE CORRECTOR 
VALUES OF DEP. 
VARIABLES 



CALLED BY 






READER-1 



{ REDREL > 


/ 



CALLED BY 
DSCRTZ 


RECIP-l 



CALLED BY: 
ST0UT1 
SETDIF 
DPCPNS 




REDREL-1 


REDREL ^ 

> 

. 

\ RE£D 80 / 
'.CHARACTER 
\ CARD / 
IMAGE / 

\ 

> 

CONVER 
ON CAR 
REA 
I NT 
NUMB 

T DATA 
D INTO 
L OR 
EGER 
ERS. 

RETURN 


CALLED BY 
ADDDEL 
BDINPT 
READER 



REORDR-1 



CALLED BY 
FINDBE 





REOUTP-l 
ENTRY POINT 
FEOUTP 




REOUTP-2 



RESET- 1 


CALLED BY: 

MANY 

RO0TINES 
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ROWS-1 



CALLED BY 
DSCRTZ 




SC ALEV- 1 







SCHPRN-l 



SET SCHMIDT NO. 


SET PRANDTL NO. 


CALLED BY: 
LINK1 














SETSCL-1 


Q SET SCLJ 


MINMAX 


DETERMINE LARGEST 
SCALE FACTOR FOR 
AN OUTPUT VARIABLE 


( RETURN 






CALLED BY 

REOUTP 

SCALEV 
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SETUP-1 



SETUP-2 









SETVAL-1 
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CALLED BY 
MANY:: • 
ROUTINES 



SIMQ-1 



CALLED BY: 
GAS 

133 



SOURCE- 1 



CALLED BY 





STOREY - 1 



STOREY 


s 

STORE A STRING C 
DEP, VAR. WHICH 
INTEGRATION ORDE 
STORAGE BY NODE 

IF SEQUENTIAL 
ARE STORED IN 

:r into temporary 

NUMBER. 

( 

< 

✓ ... 

^ RETURN ^ 


CALLED BY: 
SOURCE 
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5T0UT1 








ST0UT1-2 
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ST0UT1 





MULTIPLY OUTPUT 
VECTOR BY AMULT 



MULTIPLY VECTOR BY 
AMULT AMO STORE IN 
OUTPUT ARRAY 






STOUT! - 



CALLED BY 
FEOUTP. 




SUTHLD-1 



CALLED BY: 

DPCOPO 

DIMEN 



TAUW-1 



CALLED ..BY 
WLFLXS 




TENDA-l 



CALLED BY 
IiriTNS 




VARMAX-1 


VARMAX 


3 


5j£_ 

FIND MINIMUM 
0 R MAXIMUM 
ENTRY IN AN 
ARRAY 


vV 

Q RETURN ^ 


CALLED BY 

DRHOGS 

FEPLOT 


QKNUTN 
LINK? 



VECMAT - 



CALLED BY 
ENERSC 




VECTA-1 


^ VECTA 


ASSEMBLE ELEMENT 
DATA INTO GLOBAL 
VECTOR 


RETURN 


3 


CALLED BY 

DERVBL 

SOURCE 




THERMO-1 










THERMO-2 




WLFLXS-1 


^ WLFLXS J 


r. 


f LINK 3 
< (l.U^Y) 


. 

COMPUTE SKIN FRICTION 
AND STANTON NUMBER 
ALONG SURFACE FOLLOWING 
PA TANIGER AND SPALDING. 


ik. 


returiT^ ) 


CALLED BY 
LINK 2 





XYSCAL - X 


Q XYSCAL 



* 

COMPRESS A VECTOR OF NUMBERS 
’Xl f BY SCALE FACTOR 1 SOFT 1 . 
FIND XYD=CMAXCX1>MINCX1)) K 
SOFT . IF TWO ADJACENT 
ENTRIES ARE WITHIN XYD OF 
EACH OTHER, SET THE HIGHER 
VALUE EQUAL TO THE LOWER 
VALUE. 


f RETURN ) 


CALLED BY 
DSCRTZ 




OPERATING INSTRUCTIONS 


The 3DBR Variant of COMOC constitutes approximately 10,000 
cards. Considerable effort has been placed on minimizing input/ 
output complexity and on providing the user with considerable 
latitude in data deck preparation. This section describes deck 
set-up, input procedures, output files and procedures, internal 
diagnostics that can be used to debug operating phases, and a 
description of the data decks for the test cases. 

Deck Set-Up 

Shown in Fig. 2 is an illustration of the deck set-up for 
3DBR COMOC. Any user-written subroutines should be compiled 
first. The various machine requirements for the program are 
listed below. 

Tape: RESTART defines an input and/or output tape 

which will be used for a restart condition or 
to store data for a future restart. The inte- 
ger ending in column 25 defines a restart tape 
and the integer ending in column 30 defines 
the output print number that will be used for 
restarting. The integer ending in column 35 
defines a tape that will be used to store out- 
puts for future restarts. This number may be 
the same as in column 25. 

Print: Printed output is sent to unit 6. 

Punch: If NPUNCH = 7, in NAME01 , node coordinates and 
element connections are punched on unit 7. 

If KOUT.gt.Oand KPLVAR .gt . 0 in NAME 01 , then 
data generated for the variables defined by the 
PLOTS card will be output from the FEPLOT 
routine. 

Reader: Card reading is executed from unit 5. 

Disc: No internal requirements by program 

Input 

Unless a restart condition exists, all data are read on 
unit 5. All data which are strictly scalar information are read 
in free format style. Delimeters on these input cards can be 
either blanks, commas or column 80. Many features enable input 
data to be read. in. a simplified fashion. 
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e .a . 


Symbol 5 
5*13 12, 

3*1-. 5 3. 1 E3, 
6*23.2, 


In terpretation __ 

1 2 ] 15, IS, 21, 24 

3100.0, 3099.5, 3099.0 

23.2, 23.2, 23.2, 23.2, 23.2, 23.2 


A T at the end of input or a blank card will terminate 
the read cycle for a particular input parameter. 


e. g . 

ICALLS -1 

2 2 4 5 1 4 2 5 T 

stores the numbers 22451 4 2 5 in the CALLS vector. 

VTEMP 

42*533.0 

blank card 

stores 42 temperatures of 533.0 in the TEMP vector. 

Output 

Output for 3DP.R COMOC is standardized to the format of the 
test cases. A highly adaptive output subroutine automatically 
scales data and allows for widely variable field size displays. 
Output formats are generated in the innut deck by specification 
of which dependent variables, parameters, and scalars are to he 
printed during the output phase. Addition of an output array 
to the standard output is presented after the discussion of the 
data deck for the test case. 

Restrictions and Limitations 

Size of problem to be solved depends on the amount of storage 
available in core. The program contains a variable dimensioning 
scheme so that the total size can be specified by adjusting the 
dimension of the 1Z array in MAIN. 

Editing and Diagnostics 

There are several flags that can be user set to provide 
detailed intermediate output for debug purposes, including KDUMP, 
NGBUG , I BUG! , IBUG2 , IWRIT, IDIFRT, KODG and K0D5, In the 
following, each of these is discussed with respect to sample 
representative output from COMOC. 
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t 


KniTlP .an. 1 printout Ernn nDITIPT. 


itFvP tt ENTFlES. 

a. ^3 3 Out. 03 14416- 
- — “- 0 . 333 oof - c 3 - i ? 42 i ^- 
0 • 53 30 Of 03 16426- 
0. 53300k C3 13431- 

■ 0.53700F TV?— IE430-" 

: i>.Sj3UC> 03 l‘;44l- 

0.S33OOC 03 18446- 

- — 'o . 5333 or r . 3 ~ iB 45 i - - 

0 • 53 3.00 r 03 18456- 

- 0.53 30 Of 03 10461- 

- . ^'13:53300?' C319466-' 

0.5330DF 03 18*71- 

0.533000 03 16476- 

- ' — ro.53333FU3 


NDN-n FACTQft = 0, 

0» 5330 OE 03 1B417- 
— OT5330CE' 03' IB422- 
0.5330CF 03 18427- 
0.5330CE 03 18432* 
— 0.-33300E 03 10437- 
0.533000 03.1B442- 
0". 53.300E 03 18447- 
—'0.333 C 0F~03"1 8452 - 
0.533U0F 03 IU457- 
0.533C0E 03 10462- 
— 0.53300E C3 10467- 
0. 53100F 03 18472- 
0.53300E 03 18477- 


1B762E-02 

0.53300E 03 IB41B- 

0. 53 3001 03" I B 423- 

0.53300k 03 18428- 
0.53300E 03 18433- 
— — 0 . 53 300C -03“ 1 B43B- 
0..53300F 03 18443- 
0, 533001. 03 18440- 

(T.'53300E”03 10453- 

0.53300 E 03 18458- 
0.5330QE 03 1B463- 

0. 533C0E 03 13460- 

0.53300k 03 18473- 
0.53300E 03 1B47B- 


66 Etllf Its * 

0.0 17966- 

IHU — 17571-' 

0 . 15:0 3 CE 04 17 976- 
0. 166 JOE 04 17981- 
■" 0 . 17550 r “ 04 _ 175 Fo -^ 
0 . 155J0S- 04 17941- 
J.155J0r04 17596- 
“ 071 E 920 r - tKnBaOT -- 
0.15470E 04 18006- 
o.l'-aoof- 04 IE 011- 
■ 0;?0740F C4”13016-- 
0.22720F 04 16021- 
0 . ? 2 7 2 C r 04 18026- 
"CrV7?723 c 04- - 


NON-U FAC T(J 8 = 0, 

0.0 17967- 

‘ 0.15030F 04 '17972- 
0.150JCE 04 1797 7 
0.166C0E 04 17932- 
' 0.17590c" 06' 17907- 
0.1K330E 04 17992- 
0.1550CC 04 17997- 
'0.7272 0E“"C4-18002 : 
0.1542CE 04 1B007- 
0.19950E 04 18012- 
TJ;ZC740E 04" IB 017- 
0.21690E 04 10022 
0.2272CE 04 1302? 


, 43995 E-03 
0.0 

0.15030F 04 

0.16600E 04 
0.16600k 04 

0.17,590 fc" 04 

0. 18330 E 04 
0.1 B4Z0k 04 

QT22720E" 04 

0.22 720 E 04 
0.19350E 04 

0. 20740 E" 04 

0.21690k 04 
Q.22720E 04 


JW r .IC 1 0 0 0 0 0 
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ORIGINAL PAGTT 15 

OF POOR QUALITY ‘ 



0.53300k 

03 

10419- 

0.53300E 

03 


‘0V53300E' 

03' 

18424-" 

" 0.53300F 03’ 

— — "* 

0.53300k 

03 

1042 5- 

0.53300k 

03 


0.53300F 

03 

10434- 

Q-53300E 

03 


0.53300k 

03 

18439-" 

— 0.53300k 

03 ■— 

" — 7 

0.53300k 
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Debug nrintout from THERMO and G?A.t!FT. 


If IBUG2 .qt. ID’JMI then set IBUM1 = X3UG2. 
IF I9HM1 .qt. NMBUM then set MGFHJG = IBUG1. 


MB Mr 3 . gt. 0 prints debug information from THERMO. 

IBUhl ,ot. 0 prints input and output stations from GPMIFT. 

.1BUG2 ..at.—O. prist s_.i hero. ti on - loop, data _£r om-OP-AUEH, 

All three flags are decremented by 1 with each -pass thru DRHOCISj 
urint stops when flags reduce -ta_B_or .lower. — 

..X£ .K3UMP . .G1‘. 0-thert certain failurcs-in — GAS-^will^tar n -o n-M GnUG— \MD— CTTO 
thus causing printout .at failure conditions. Some conditions will be 
fatal and create a node coordinate printout followed by a dependent 
.. — variable printout. — - . — 
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IR’INI rot. 0 
NORTH =0 

Confute tornernture, specific 
host, and density as function 
o c enthalpy, pressure and 
mass Prnstinns. 


0.~AJ3F~00 c.o 

Ii 

f 


" 0, 7c7r OC 0.0 


0.0 


— HOLF FRACTIONS— 


H?C C J Ft? M2 AK 

0.0 0.7,10'; 00 C.C U.74Cf 00 0,0 

ppp: Slight- : Tf!‘P[ A ) Al.PH ■ 

t .V 11 'PF-iil O.bjjPO 03 G.250S3b '00 


0 H NO OH 

0.0 O.C 0.0 0.0 

" PH l"*’ TV I H/ SEC 1 CPI jnUlCTKGDK ) 

O.IOOOOE 01 Q.34533E 03 0,101 14E 04 


1st and last passes arc 
printed when Dill'll ,gt. 0? 

when IBTn2.pt. 3 all 
interned into passes are shown. 


‘M3'Vi.EA;?.r 

0.4S3..5C 1.1 


T..V1A MIL. I»T . * RH01KG/M31 * S I JClULt/KGfiK JVtSC t NT . SEC/K2 

0. 1 39d 1 F 01 0.2tlu53r 02 0.l0fl32E 00 0.75666E 04 0. 1I327BE-04 


“BASS FRACTION- 


ii) 

o.;::3r co c.o 


N? AR 

3.767F 00 0.0 


-MULE FRACTIUNS- 


H3 

O.jiOF 00 u.o 


OUT PUT SIDE 


-.2 AR 

C.74CF Oil 0.0 

luTFUT NUDE 1 


OUTPUT NUOP 


OUTPUT NOOC 


OUTPUT NUDE 


mass F-Actnns 

VI 2> S -1.0 Vt 3| B (J.233J0F 00 Yl 41 = 0.0 

YI 71 =“~.JlO r Yl~ ,3J = "" 0.0 Yf 91"*“ 0.0" " 

HSPR = O.JSSOSE »ti 3HUPR - 0. 10B32F 00 CPFPR = 0.10114E 04 TPR = 

US = 0. 1U343E-02 T = O.IOOOOF 01 RHU = 0.67618E-02 CPF = 


Yt 51 = 0.767C0E 00 YI 6) 

Y ( 10) = 0.0 YI 

0.53300b 03 

0.2 <il 62 6 00 



IWRIT ,gt, 0 debug outnut from COMTES. 

IKBIT is decremented by 1 for each pass thry COMTES t w hen 1WRIT ,Ie. 0 debug print st ops. 

If IWRIT is still .gt. n when VSTAFT is passed, then more debug information containing 
the £HO*Vs is printed out. 

The vectors VS IN and NCOS are printed on the first pass thru CONTES. 
vSin (SINE of angle between lowest and highest node in column) 


1 ■ 0. LOO JJF 01 2 0.100006 01 3 0.10000E Ul t 

.tens (COSINE of angle between lowest anti highest node in column.) 


0.100006 01 


5 0-100006 01 


5" 0.0 



A • 

ty ■ 

CJ 

a 

cn 

3 


G 

*H 



a 


tn 


> 

<d 

tH 

o 

4J 


4J 


- 

- •* ~ 03 

fit 

cj 

G 

»4 

CN 

A 


0.0 

'tfliiJUF 03 
0.25074E 03 
0.'»05'i»2F-<»" 
O.iZOft-l? 
O.'-'Cl i Jl-02 
0 * '*4<J> ! 1,0 

0.10 JO >t 01 
j.tino-jt- oi 
.J.lOOjfF 01 
3. 100' »F 01 
0.0 

o.tOt'znt on 
'"0.2507LE 00 
0.9CS22F-02 
O.'jJ*- 14F-02 
■0.905VJF-02 

0.991 4-»t oa 

O.ltSC-'f 01 
0. 100..‘ -F 01 
0.1010 >E 01 
0.1 o.v. ft 01 


k'H0*i!L'asr 

o.O a. 

"0 .20W20E 1 ~0C -0. 

Q.25077r qc -0. 
0.10 b l£F-tJ2 0. 
0.995 15 r — 32 0. 

0.90531*— 02 0. 

0. IvOOlF 01 -0, 

o.ioocir 01 ‘ 0 . 

U.ICJC96 01 0. 

0.1JJ096 J1 0. 
0.1330t>E"in "-C. 
0.0 c. 

0.200206 CO -a. 

0.2F076r'00'=7D; 

0.905U’i:-32 0. 

0.905 lt* c -02 Cl. 
Q„Q05?96=TIZ— TJ. 
ti.lOJOtf 01 -c. 

o.ianeoF oi -o. 
o.io3a*jr'oi -o. 
C.10JJ9E 01 3. 

0.10009F 01 0. 


r.FLKHOU ■ 


UP LAST 


UP'RIHE 


C 0.0 0.0 0 

4053 16-05 0T2 07J2 01 a0"-0';3TJ571T '05 0* 

327Z3E-04 0.25077E 00 -0.4L797E 05 0 

562526-06 0.905L6F-02 -0.15086E 04 - 0 

3725.3F-0B 0. 5051 56-02 ' -Q.15086F 04 ‘0 

Fl t ’44c-05 0.9053ir-02 -0.15003E 04 0 

143156-01 0.100046 01 -0.107706 06 0 

o o.xocoBF' ai~ -acre ooze os — o 

3 0.100096 01 — 0. 16682E 06 0 

C 0. 19009F 01 -0. 106826 06 0 

0 0;i0009E _ OI“-0-.'106B2E- 06“'0 

0 0.0 0.0 0 

321076-05 0.200206 00 -0.33367E 05 0 

536546-04 "-0.25077,1=" 00—-0.4'I79air 05 — 0 
540 L fr— Oc 0. 905108-02 -0.1508GE 04 0 

342736-06 0.905166-02 -0.15086E 04 0 

6 5Q4'3P-05 — D7 90 529F-D2“'0:1508 3E“04 — O' 
513146—02 0.100366 01 -0.16744E 06 0 

95367D-06 0. 100098 01 -0.16[>fl2E 06 0 

n 57676-06' 0 . 1 0 0 39F Of -'071 668 2 6-06 — 0 
3 0.100096 01 -0.16682E 06 0 

0 0. 10C096 01 -0.166826 06 0 


3 13 

4 19 
5 — 25 

6 31 

7 37 


.166676 00 
.250006 00 
.33333 E 00' 
.4 1667E 00 
.50000E 00 
.5B3336 00' 
.791676 00 
.10833E 01 


.0 12 2 

.833336-01 . 13 0 


,250006 00 15 20 

.333336 00 16 26 

LflGtiTE - 00 IT 32- 

.500006 00 18 38 

.583336 00 19 44 

.T9 1676“00 TO 50' 

. 108336 01 21 56 

.150006 01 22 62' 


’Data for 
Column no. 1 


Data for 

Column no. 2 


t 


cn 

o 


XWRIT .gt. 6 debug output from user's DFCFBIi. 

rwsiT is decret-iented by 1 in CONTES for each pass thru contest vhen IWPXT vie. ■ 0 debug print* stops.' ‘ 


Ofi 

*8 

§S 

"§l 

Ss 

?! 

- -t-i t?d 


4 


CO 


>. — » 
-yfC 

.c 

*> O 

S3 

tn ch 

cn 

oc tr 

c 

u o o 

to 

r} *-i U 

tH 

•H 

>'tpU 

tr 

P to 

c 

c 

>r1 

*0 « c 



-H 


t^e- 



hull 1 

>’.l tltl 


"ft 

r 

t*. 26- <>.1-02 

1 

0.333 131 -01 


3 

iv • 1 /- j 

" i 

a.otuf n -ai 


4 

v . It 231-.13 

■ *, 

0. 110JCF Oil 


5 

■j.V 

- . 5 

0.133 111 00 

' 

f 

'’.0 

r. 

0 . 115:01 pj 


7 

.'.74.4>F-tU 

' 7 

(vnsuci co 


d 

O.J 

a 

u.lJEacf ou. 

■ 

c 

0.-1 

J 

•3.1JWJ 1 0 3 


t i 
* -* 

>1.0 

... ... • u 

o.nfooi- co 




j. 


u 

k »*-. v~‘ o.i 


u 

c 

<1 


c 

M 


. SASUIUI' 

2 


10 


ii 


-p 

fS c 
•o 

+* 

ri o 
■c 


' *0 

to to 
■p u 

- *4-4 

o 

to to 

4J »rj 


4^ to 
ii »o 

4J C 

u n 
0 to 

. «h a 
ei a 
> a 

+> c 

+rH 

0 P 
0 to 
- rt S 
to Q 
> ^ 


fi c 

iH 

>0 n 
M m 

Oft 

0 c- 

O 3 

S p 

•n 

T3 H 
k to 
- 03 

O 0 

U r*t 

.... 

tr e 

U 
ct to 

c c. 

top. 
Ci V 

mi n 



YUTH'l) 

YUTH | 

-ii 

PHjj 

.661651 □ J 

0.0 


' 2 

O.Ulilit-Ol 

0.0 

T 

0. 3025 BE 1 

13" • ■ 

I.7iu5?5 00 

0.66165E 

0Q 7 

3 

0- ioDf>7E Qd 

0.33333F- 

2 

01 

0.34325E I 

" ' "19 


"13 



3 


I.65990F 00 

0, 73052 E 

00 

0.25000E 00 

C.16667E 

00 

0.13716F-I 

25 


19 ' 

T 




1,659901: 00 

0.65590E 

OO 

0.33333E 00 

0.-2500CF 

CO 

0.13716E-! 

..... -■ n • - 


- ,5 — 

6 ' 


5 


1.65990F 00 

0.05990F 

00 

0.41667E 00 

'J..33333E 

00 

0.13716E- 

17 


3r * 

7 


6 


1.10000E 01 

0.6599O C 

00 

0.50000E 00 

C.41667E 

00 

0. 10C09E i 

■' " 43 " 


‘ 37 

6 


"7 


>.ioac. e oi 

0.10000K 

01 

0.5S333C 00 

O.EOOOCE 

00 

0.10009t 

1-3 j Jot oi 

0.10 OOOli 

01 

0. 75lo7E 00 

■0.58333E 

” H" 
CO 

0.1 0C09E ' 

55" 


"49 

10 ' 


9 


1.100001= 01 

0.19000F 

01 

0.10033E 01 

0.79167E 

cc 

0.10009E 

■ " ■ 6T 

- -■ — 

■ S5 — 

11“ 

- - 

ID' 



T" 

>0 

13' 

>0 

19 


25 * 

U 

31 

n 

3T - 
)l 

43 — 
)1 

49 

n 

55 


E 2 t i ; - o. ri >• it-,v c ' i 

r?l > ! = ;• ?1 7 ) = 

• r 2l m - .•..J.acvd-’t-o? tat 


61 ' ” 

-;.V!jco<- oo o.iooom- m o.ioooue ai 0.1500UE oi c.icc33F ci o.ioco5E ci 
O.'-nal 1 — 02 E2t 31 = U.tl96lF~02 E2< 4) = 0.41961S— 02 t?( 5) 

0.419591-02 F7f 31 = G.41952E-C2 £21 «»*=“ 0.4liSZGr-02 F?( 10} = 0, 


0.419611-02^ EddV 'visc. 
3.35831E-C2 f Hassrdefect 

) (outer region) 



4J. 

e o 
•z a 

c > . ■ 

Cvs °“ 

w c 

* K 

CP c 


- - * 4>-r.nJ“..- 

E Ifl 

«h a 

O 4 rv 


1 , 11 01 7 a;i-2000E 02 0.10415E-01 

TA1JWL = 0.2G219P 04 UEO.GR = 0.22720? 04 . 


0.15030E 04 


0.16667F-0E 0.67173E 01 





291 




I IE^'C 97 100 rflTJf 5 NU DE 6 NCPF 12 

XI 0.5333'b ill 0. B.133 3E 01 O.B3333E 01 {non-dim. transverse coordinate) 

■ T" OTO 7~ U70 — 075666 /b 00 {non-tlim." normari coordinate) 

M (L-rcatrix) 

l -C.733’3t 30 2 0.33333F 00 3 0.0 4 0.0 5 -0.15000E 01 

h C.I50J0F 01 __ 

\n TKWi (K- transpose matrix) 

- r CYiomo r or 2 _ o.‘o — —tv — - cr.iaoooiroi 

‘ i21 1 ? _ ‘ _ J ’ 

1 0. 11111b OU 2. - 0 , lime 00 3 0.23G11E 01 4 0.0 

o _O.?25J0F Jl _ . 

'*211 , 

— r — 3 ;mitr oa "2 “'-immit-na — “ — 3 dtu 4- — -o.tmir do 

6 -J.225JOF 01 7 0.0 8 -0.225D0E 01 9 0.22500F 01 

~ — LpriGTH TIHF5 THrCS’.’f SS (non-ditnensicnal) — — 



1 

0.34601!- 

01 

2 

O.IOOOOE 

01 

3 

0.33993 E 01 

4 

0 .666676 

00 

5 

0.37269E 

01 

'' ■ 6 

0^ 1 66671 

-71 

~T ' 

" 0.3C3T3F 

01 ■ 

■* 0 

"0.20000E oi — 

9 

0. 44B45E 

oi ■ 

" 10 " 

0.30000E 

01 

11 

o.2 r J3Htr 

01 • 

12 

0. 10000c 

01 

13 

0.24267E 01 

14 

0.66667b 

00 

15 

0.28674F 

01 

16 

0.16167F 

01 

17 

U. 3J732F 

01 

18 

0.20000F 01 

19 

0.30006E 

01 

20 

0.3CO00E 

01 

7l 

' O.VWfl 

01 -- 

27 

0. 10031F 

01 ~ 

23 

-0.179,3 tr ot — 

— 24 

0.666672 

00 

25- 

0.Z3570F 

01 

26 

0. 107.671 

01 

>1 

C.2o074t' 

01 

23 

0.20000b 01 

29 

0 . 3'43 19 E 

01 

30 

0.30C00E 

01 



| Or|gin{ 4L iAGifc I b i 

OF POOR QUALITY 







" f 




V-O'V’, . at. 0 defcm printout From GEfViFt,. 


1 

AirwTrTr-rfrrHTLxaETr"' 
0.16667E 01 2 

^non-dimensional) 

a*ifc66/e 01 i 

0^1 11 HE 01 

4 

0.111110 01 

5 

0.27778F 

01 

t> 

CT.TTTTRr 01 


07333T36 07 

a 

■'"Of 3333 3 nr 


07500006 01 

10 

0*55CQ0E 

01 

11 

0, 11667? 31 

12 

0.11667F 01 

13 

0477 7 78 F 00 

14 

0.7777SP 00 

15 

0. 19444E 

01 

let 

0.194441 01 

17 

0. 233J3E Cl 

ia 

0/233330 01 

19 

0.350006 01 

20 

0.350 OOF 

01 

2 I 

0.2333117110 

21 

0.833336 00 

Z J 

D3JT555E 00 

" '24 

0.55555E 00 

25 

0.13809E 

01 

‘26 

o.i3fto9e ai 

27 

O.L6(.fi7E 01 

20 

0. 16667 6 01 

29 

0.250006 01 

30 

0.250006 

01 


GFUf»-l (1st part of B2001 matrix) 


1 

-0. 410671-01 

2 

0.372536-08 

3 

0.41667E-0L 

4 

0.0 

5 

-0.41667E-01 

u 

0.414676-01 

7 

-0.2777AE— 01 

a 

0.372536-08 

9 

0.277786-01 

10 

0.0 

il 

~-JT?777Jmi 

12 

07277736-01 

13 

—0* b9^»fttr“0 L 

r* 

0 *37253E— 07 

*15 

0.694446-01 

It 

0.0 

17 

-0. 694446-01 

ia . 

0.69444E-01 

19 

-0.83333E-01 

20 

Q.48429F-07 

21. 

0.n333.1f-01 

22 

0.0 

23 

-0.833336-0 1 

24 

0.833336-01 

25 

-0.125006 00 


~'Z5 tj.nPoOsr-cn — 27 — •ffnzsacr'oo 20 o.o~ ~ — 29 -o.12sooe oo’ 30 OiizscaE 00 


l 

-D .13626F- 

07 

2 

~ '"756C1H2 “ - {2nd part 
0. 13B89E 00 3 

of B2Q01 matrix) 
-0. 138896 00 

4 

-0.13889F 00 

5 

0.138896 

00 

Cl 

" OT5' ' “ ‘ 


I ~ 

- 07271552 e -tj 7 

a 

0« Id CpO 

V 

-07138896 DO 

" " . 10 

-0.138896 

00 

11 

0.135891 

Ou 

u 

C.O 

13 

-0. 37253 E-08 

14 

0.13B89F 00 

15 

-0.13899F 

00 

16 

-0.1383**E 

00 

17 

o.UBaoc- 00 

16 

0.0 

19 

0.22362E-07 

20 

0.138896 

00 

" "21“ 

— -CT.135393 

‘00 

22 

“7= 0.13RB96 00 

23 — 

■~D 7138896' OCT 

“24 

— 0.0' 

25 

“ -0.4B4Z96- 

07 

26 

O. 1 3B84F 

00 

27 

-0.131)696 00 

28 

-0.133896 00 

29 

0.138896 00 

30' 

0.0 



X 12 (base' of transformed triangle) 


L 

— 0 :34TB aim — 

2— 

C.1C0C06 

01 

'3“ 

— OV33993F"DI 

4- 

,0.666676 

00 

5 

0. 372686 

01 

6 

0 * 16667F 0 1 

7 

C.3P873F 

01 

8 

0.20000F .01 

9 

0.448456 

01 

10 

0.300006 

01 

11 

0.253306 01 

t2 

0.180006 

01 

13 

0.24267F 01 

14 

0.666676 

00 

15 

0.28674E 

01 

■ IE — 

O.T6c67rUI 

17 • 

0T3073Z6 

'01 — 

l'S" 

0.20003E 01 

' ' 19 

0 . 380066 

01 ■■ 

' 20 

0.30000F 

Cl 

21 

0* 194366 01 

22 

0. 100006 

01 

23 

0. t 79516 01 

24 

0* 6066TE 

00 

25 

0.235706 

CL 

2o 

0*t6o67r u L 

27 

0.260346 

01 

28 

0.200006 01 

29 

0.343196 

01 

30 

0.30000E 

01 


»23 (height of transtorraea tridhgiej 




1 

0. -{9 7 3 IF 00 

2 

0.33333F 01 

3 

0.6 5 3 72 6 00 

4 

0.333336 01 

5 

0.14507E 01 


* 

0 

' y, 133J3t*~0i 

7 

0 ; msoirm 

a — 

0:'31333E“OI 

g— 

07222996~01 ' 

10 

” * 0.33333E Cl 

* 


u 

‘J.‘H9l4F yc 

12 

0.23333E 01 

13 

0.64101E tJO 

14 

0.233336 01 

15 

0.13562E 01 



. 16 

0. 233336 01 

17 

0.161856 01 

18 

0.23333F 01 

19 

0.194186 01 

20 

0.233336 01 

J ' 


2T 

““ 5V35749SrSU 

T2 

tr.Tf.6 67E1I 

21 

076 1 9 Q8F"T)'0 

24 

~U7T6667E“D1 

25 

U.117B5E 01 

cn 


26 

0.16O&7F U1 

27 

0-. 12304F 01 

28 

0.16667E 01 

29 

0.14569F 01 

30 

0.166676 01 


to 




OF POOR QUALITY 




v. 



oj ko. 15 .at. _Q debug outputfrom DERVBL__ __ „ 

KO!)5 is decremented by 1 For each NEQICJN |fcis?ies thru DERVBL whan KOD5 .le. 0 debug print stop's. 



guioai vecrot 


(:!on-din. nodal 

values of dependent variable 

being computed 

at this 

time.) 


r 

•iiii 


*7 

u * c 


5 0.0 


4 

u.u 


s 

0.0 


•J 



7 

3.661246 

00 

8 0.661246 

00 

9 

0.661246 

00 

1C 

0-661246 

00 

i 1 

3.*>' 1246 

4-0 

12 

0.6E-1246 

t?G 

13 0. 73031 E 

00 

14 

0.73031“ 

00 

15 

C.73C31E 

00 

" — * If 

7173 33 ir 

"on — 

— IT- 

0.73031F 

03 ** 

jg- 0.73011P 

0D” 

19 

' 0.63192E 

00 

2C 

0.6ai52r 

00 

2 1 

0.773“ 76 

00 

22 

0. 77387F 

cc 

23 0.773B7E 

00 

24 

0.773876 

.00 

25 

0.6 81926 

00 

r a. 

0.a0l'-.?r 

UO 

27 

0.506426 

03 

28 0. 806426 

00 

29 

0.B0642F 

00 

30 

0.8064 2E 

00 

.r 

7rr,3i-7?r 

“no 

— 3? ’ 

07 On 92F' 

"33“ 

33 0.837306 

oo - 

“34 

- 0.H3Z3H1 

oo - 

- 25 

0.832386 

00 

■«> 

0 . - 52.’ P 

J0 

i f 

0.99956“ 

0-1 

3d 0.990366 

00 

39 

0.0543KE 

00 

40 

0.854385 

00 

VI 

•J . ■* 5 4 3 4 f 

to 

.2 

o.issojac 

00 

93 0. 999966 

00 

44 

a. 9 79 Ex, 

00 

45 

0.87329c 

CO 

*•*{» 

tJ.0772"F 

C 3 

~\T 

(7. 373 7 9“ 

00“ 

4 8 0.373296 

GO” 

4 9 ~ 

“ 0.99956E 

00 

* 50 

0.95956E 

00 

\ r 

o.sij-isr 

00 

5? 

0.‘il2o5E 

03 

53 0.912456 

00 

54 

U.91245F 

00 

55 

0.959566 

■oo 


li.i'i -’).■ r 

00 

57 

0. 754256 

00 

0 d 0.9 5 ‘)?5 6 

00 

59 

0 .754256 

00 

to 

0.954256 

00 

^ , 
1 r k 

) . -*> 45r t 

3(7 

00 

“62' 

C.5995a6 

OX " 

63 * 0. 999566 

00 - 

64 - 

0.999566 

00 

"“ £5 

0.959566 

u0 


— — c - ASSF'\*l rn'OTr***VJ'' CCandenntd C-6!atrix’ frarc-lcft hand side— -Boundary nodes 1-G are placed qt the 

end so that position 1 refers to node 7 which is 1st node integrated) 


l 

0.4VJ02E-.J1 

l 

J.45? Jd6-01 

3 

0.143536 00 

4 

0.21690“ 00 

5 

0-259586 00 



0.1'46?r i!0 

. 7 

;3. { 71 5?C— Cl' 

3- - 

- CT. L24K0F 00 

— 9 

' 0.15689? 00 

10 

0.3062IE 00 

- ™ - 

11 

C. , 1 x i:>*- u0 

1 .? 

0.242 Ilf 00 

13 

(1.934 70 6-02 

14 

0.023 126-01 

15 

0.2197 B6 00 


1 ■- 

O • * j »*ff 6 .* 

! r 

0.49307!: 00 

18 

0. 2 35 93 F 00 

19 

0 • 31268F-02 

20 

0.3Cj“76E-0I 


t- A 

-- - 0.7 «76v? vff 

22 "■ 

C. 4 C506E 00 

23 “ 

-J.55487C 00 

- — 24' 

' ■ 0. 32535 F 00 " 

75 

0.85642E-C1 ' 


2t 

C. 7 *05 7 r -e l 

2 7 

0.26375F 03 

78 

0.451526 CIO 

29 

O.uid^Gr: OD 

30 

0. 36278“ 00 


?! 

oc 

32 

0.4U9CE 00 

33 

0.32662F. 00 

34 

0.497066 00 

35 

0.67 8 95F 00 


J * .. 

3. 3 .T35F C-C “ 

37 

0 . ( £63 7F 00" 

3B — 

“ 0.865741- 00 

39 

-0.734476 OO 

40 

0.10074F 01 


*• \ 

0. 1 35 8 7“ ci 

'1 <1 

0.'-772CF OO 

41 

U. 105516 01 

4 4 

0.155795 OL 

45 

0. 14£C'»E 01 


Q P 40 

3.2 ! /2?(, ul 

/, r 

0.2651 7r Ot 

•td ' 

0-15225“ 01 

49 

0. 149536 01 

50 

0.720536 01 


— hrj- Fcf - 

'“"3.2 ) j 1-F 01 

j.’ 

0.367x1 [E 01 

— r,i - 

- 0. 53403E 01 

— ■ 54 

" 0.27«93E 01 

55 

0.5S531C 00 ' 

- -- ' — — - 


h.l4#0FF Cl 

6 r 

9.15o*.l6 CiL 

58 

0.26 71 It 01 

59 

0.35136F 01 

£0 

0.255836 01 


w m -2 . t 

O M ul 

a. Iti 71 V! -£ ] 

6 7 

9. K 71C6-01 

63 

0.31 5o3 F-0 1 

64 

0. 42702 E-01 

to 

0.61 2£9F-01 



7.1t7isr-r>l 


;.Hi i J ji- v ur r ) i.|.i : ;iI -g (Assembled contributions to right hand side. Boundary nodesl-G are placed at the 
■■■■■■■■ ■ - end so that oosition 1 rotors to node 7 v?h5ch is 1st node integrated) 


t 

— J . 44 6 d 5 1 — 0 2 

2 

-0.4P402f.-02 

3 

-O.B6da76-02 

4 

-0.120 396-01 

5 

-0.17120F-01 







-0 . 5 -»8 27t - 07 

7 

-0.604486-03 

8 

-9.130936-02 

9 

-0.5a 3096-03 

10 

- 0. 90C25E-03 





* 

1 I 

— ■ -5.i r=7?--o?-- 

-17 

— C.IC957E-C2 

13 — 

' 3. 9963oE— 04' 

14 - 

0 . 10422E-02 

15 

-0.693236-03 

‘ * 

“ “ 


— 


1- 

C. U 

1 7 

0, 1 £9266-03 

ia 

0.105296-03 

19 

0,866596-10 

2C 

0.971976-03 






it 

-0. 1 l-Htl-,12 

? ,T 

-0. 14:> 3c“-C3 

23 

-0.216 '46-03 

24 

—3 .3550 26-04 

25 

0.6178*:t-0t 







-?■ — <1.$1?I3“-0I “27 ' -0. 1 18 J7E-02 ' 20 ' ’-0. 26Dt7r-73 ”29 -0.353926-D3 30 -0.221956-03 



31 

-3.M79U5- Jl 

32 

-0.714126-01 

33 

0.208626-01 

34 

-0 .173946-03 

35 

-0.23651E-G3 



5 

-J. 14i.j3-:-0l 

37 

0. 12367“— 06 

38 

—0. 96569 F-J2 

39 

0.H35 196-02 

40 

-0.14049t-03 


— 

• T 1 

-”-C.192j9r_03- 

- \2 ~ 

-.9. 170715- C3 

43 “ 

•' 0. 105 34 6-10 

44 

— 0. 15136C— 02 

' ' 45 

□ . 14285F-0Z 

' “ 


*1 

-O.f.5 ! 27- ;:j 

4 7 

-0. 154E.6>-C3 

4 8 

-0.1 15636-03 

49 

n. 1 15761- 1U 

50 

-C.8668 JF-03 




9.7 5‘-'->-0d 

57 

-0. 153-.46-03 

53 

-0. 219336-03 

54 

-d. 11801F-03 

55 

0.123481- 10 



5 : 

-j, 35531 ?— 06 ' 

- . H7 

-2.104426-03 

— “38 * 

-0. 194836-03 

59 

' -0. 26279 E-03 

' £0 

-0.176646-03 



61 

0.4 e/4 7 F-0 2 

62 

0.561826-02 

63 

0.99 S96E-02 

64 

0.14121E-01 

£5 

C. 189296-01 



-* 

C.7 c 'H7 r -C7 
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Test Case 


Two data decks, generating a nominal Mach 5 isoenergetic 
boundary layer flow and the three-dimensional virtual source 
simulation [Ref. 1], come as standard test cases for 3DBR COMOC. 
The listings of these data decks are included in Appendices A 
and B. Another problem specification can be readily adapted 
from these decks, since approximately one-third of a data deck 
is associated with standard call sequences and output format 
specification and arrangement instructions. Instructions for 
additions to these standard data outputs follows discussion of 
the data decks. This discussion covers details pertinent to the 
data deck for the Mach 5 test case. Comments and descriptions 
should be interpreted with reference to Appendix A. Subsequently, 
the alterations required to establish the non-unif ormly dis- 
cretized virtual source problem data deck from the Mach 5 test 
case are presented and discussed. 

Preparation of the data deck is subdivided into four phases. 


Phase I . Reference Conditions and Control 
Parameter Specification 

Cal 1 Parameter Code Function 


FEBL 

COMTITLE 

FENAME 

&NAME01 

NEQKNN 

IGAS 

IFR 

KDUMP 


NPVSX 

NSCX 

NSC Y 


& NAME 02 

UINF 

T0FTNF 

REFL 

T0 


Starts execution of COMOC 
Reads one title card to appear on cover 
page of output 
Ini ti al izati on 
Integer parameter input 
Number of dependent variables to be in- 
tegrated in XI direction 

0 Isoenergetic flow with constant 

1 General flows 

0 Equilibrium composition (IGAS=l) 

1 Frozen composition 

0 Suppress debug output 

1 Print debug output 

No. of entries in pressure table 

0 Uniform X3 interval in discretization 

1 Non-uniform X3 interval in discretization 

0 Uniform X2 interval in discretization 

1 Non-uniform X2 interval in discretization 
Floating point paramet&^niput 
Reference (freestream) vel ociiy,jF/S) 
Reference stagnation temperature C^RJ 
Reference length { F ) 

Initial XI station (F) 


Call Parameter Code 


Function 


TD 

DELP 

EPS 

VSTART 

XSCALE 
YSCALE 
CPA ,C Pl-H 
T0A ,T0H v 
XMA, XMH 


FED IMN 


Length of XI solution, starting at T0 
(F) 

Percent of TD at which output is desired 

Integration control parameter (.01 to 

. 0001 ) 

Percent of TD at which transverse veloc- 
ity ( U 2 ) commutation starts 

Multipliers to convert discretization 
to feet 

Specific heats, stagnation temperatures, 
and molecular weights for two-compo- 
nent, i soenerget i c , frozen flow mixinq 
( IGAS-0 ) 

Generate vector lengths and array entry 
points. 


Phase II . Finite Element Discretization 

LINK! 1 This call generates the finite element discretiza- 
tion of the X2X3 plane. The data are read in free 
format fields. A "T" terminates any sequence. 

A. Automatic Uniform Discretization 
Occurs for NSCX = NSCY = 0 

Set XSCALE = desired element width in the X3 direction 
Set YSCALE = desired element height in the X2 direction 
Read selection keys 
e.g. YSCALE = 0.004 
XSCALE = 0.002 
1 21 , 1 2 , 

T 

Generates discretization made up of 21 node rows x 2 
node columns, or 40 elements (x 1 element). Elements 
are 0.004 F high by 0.002 F wide. 


B. Automatic Non-Uniform Discretization 
Occurs for NSCX = 1 and NSCY = 1 

Set X3 discretization first, X2 discretization second. 
Data are used in sets of 3 integers at a time. First 
integer identifies finite element interval concerned, 
next two indicate element width (or height) as ratio 
in feet, e.g. , 3 1200 = 3/1 200 f F ) . 
e.g. 1 3 1 200,2 1 600,3 5 1 200, . . . 

T 

1 1 600,7 1 600, 8 7 1200, . . . 

T ■ 

■ 1. 11, 1 4, 

T ‘ 


1 66 


This generates a finite element discretization of 11 
node rows x 4 node columns. The element widths 
(intervals between node columns) are respectively 
3/1200 (F), 1/600 (F)» ... . The height of the first 
7 element rows is uniformly 1/600 (F), eighth is 
7/1200 (F), etc. 

Phase III . Output Specification 

Following the discretization phase, the user can input up to 10 
title cards to head each generated output sequence. 

The next ~65 input cards specify output format, see Appendix A, 
and are typically not to be changed without reference to the 
programmer's manual. 

Up to 10 title cards can follow the standard output specification 
to fully describe the problem being solved. This output 
will occur once, directly after printing of the cover page. 

DONE Calls end to output specification phase 

Phase IV . Solution Parameters, Boundary Conditions, 
and Initial Distributions 


Call 


Function 


VX3ST 

e.g. 11*10.05 0.1 

VPVSX 

e.g. 4.3494 3.41, 


I PI NT 


KBN0 


-1 


OO 


Establishes NPVSX entries into static 
pressure table as function of XI 
Eleven pressure values at intervals AX 1 
of 0.05, starting at XI = 0.1. 

Read pressures in PSFA 


Standard Input consisting of integer 
array of numbers corresponding to depen- 
dent variables. Program will integrate 
first NEQKNN of them, plus U 2 . 

KBNO (N) establishes fixed boundary 
conditions for dependent variables N 
through NN . 


KBNO 


(NN) 


e.g. KBNO 
BOTTOM 


4 Fixes variable 4 nodes on bottom of 

DONE discretization at their initial input 
values. 
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Call 


Functi on 


ICALL -1 
ICALLS -1 
LINK3 4 
LINK! 3 


Fixed calling sequence for internal 
evaluations, not to be changed. 


VTEMP -58 Read initial nodal total temnerature 

distribution. Non-dimensional ize 
entries by number in location 58 {TREF). 

e.g, VTEMP Read: first 82 nodes at T = 1800°R 

82*1800. 0 
T 


VYY - { X ) Reads initial conditions for dependent 

variable N. Non-ditnensi onal i ze entries 
by number in | X j . 

VYYEND (N) 


e.g. VYY 

42*0. 0 
T 

VYYEND 


-27 Initial U2 distribution is all zeros. 
Non-d imens i onal i ze entries by number 
in location 27 (UREF) 


e.g. VYY -27 

2*0.0 2*1654... 

72*4004.8 

T 

VYYEND 1 


Initial U1 distribution is zero at 
first two nodes, 1654 F/S at second 
two,..., last 72 nodes have 4004.8 
F/S. Non-ditnensi onal i ze entries by 
number in location 27 (UREF). 


QKNINT 
DE SCRIPT 
DONE 

DESCRIPT 3 

Standard completion of data deck 


DONE 

COMOC 

END 

EXIT If a second test case is desired, 

insert data deck starting with COITITLE 
before EXIT card. 


1 68 


Listed in Table 9 are the changes to the Mach 5 test case 
data deck required to establish the three-dimensional virtual 
source data deck. The complete listing of the latter is included 
as Appendix B. The following explains the alterations with 
respect to input phase and the line numbers in Table 9. 


Input 

Phase Line No. Description 


I 


II 

III 


IV 


1 

21 


7 ) 



14 

151 


22 ) 

23 

24 

25 
261 


Title card for output cover page 
Reference condition and control parameters 
for combustion calculations using five 
dependent variables 

Form non-uniform discretization, using 11 
node rows x 6 node columns, producing 100 
finite elements 

Title card to head each output call 
Detailed problem description 


Entry locations of longitudinal pressure 
distribution (constant) 

66 nodes have uniform stagnation temperature 
Initial U1 distribution 


36/ 

37 Initial U2 distribution is zero 

38 Initial 02 distribution reflects location 

of virtual source 

39 Initial N2 distribution 

40 Initial H2 distribution 


Hence, establishing the data deck for a multiple dependent vari- 
able, three-dimensional problem using a non-uniform finite ele- 
ment discretization is readily accomplished. In this case, only 
forty data card changes were required, using the two-dimensional 
Mach 5 data deck as a master deck. 
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“*4 

O 


Li ne 

01 
C2 
C3 
C4 
05 
C6 
C7 
C 8 
C9 
10 
11 
12 

13 

14 

15 

16 

17 

18 
19 
2C 
21 
22 

23 

24 

25 

26 

27 

28 
29 
3C 

31 

32 

33 
54 

35 

36 

37 

38 
35 
AO 


TABLE 4 

DATA DECK CHANGES TO PRODUCE VIRTUAL SOURCE SIMULATION 


T 

T 

T 


CnMOC CHFCK CASE FOR 
NFQKNN=5, 
MPvSX=2, 


THREF DIMFNSIC1NAL 
TGAS=l, 
NSCX=1, 


REACTING BOUNDARY 
I FR=Q f 
NSC Y- 1 * 


RFGION FLOW 

KDUHP=Ot 


N F l F2 = l t 

UINF=2272., TOF INF=533.0, REF L= .003333333 , 

TD=0.0, T0=0. 10 , DEIP=5.0, EPS=0„01, 

XSCALE=C. 003333333, YSCALF = C. 003333333 , VST ART= 10 1 .0 T 
1 75 100, 2 5 C 100 T 3 125 100, 4 150 100 , 5 225 100, 

INCREMENTS BETWEEN X3 , NODE-NUMERATOR-DENOMINATOR 
1 5 1C, 7 5 L C * 8 125 ICO, 9 175 LOO, 10 250 100, 

INCREMENTS BETWEEN X2 


1 11 , 1 6 , 

LL ROWS ANn 6 COLUMNS NORMALIZED BY LRE C , HENCE X-Y SCALES =LR EF 
CHECK CASE, THREF DIMENSIONAL REACTING BOUNDARY REGION - VIRTUAL SOURCE 
CHFCK CASEtTHRFF DIMENSIONAL RFACTING BOUNDARY REGION - VIRTUAL SOURCE 
( F2/C1 2 /AT R SYSTEM WITH EQUILIBRIUM CHEMISTRY). PRCBLEM CONSIDERED 
REPRESENTS TRANSVERSE H2 INJECTION INTO A SUPERSONIC AIR STREAM 
CHARACTERISTIC OF SCRAMJET FUEL T NJFC.TI ON, SEE ROGERS NASA TNC-61L4, 

1571 A^D NASA TND— 647 £,1971 FCR EXPERIMENTAL STUDY OF THIS °ROfiLEM • 
TURBULENCE MODEL EMPLOYED IS DESCRIBED IN USER'S MANUAL NASA CR-1 32450 , 1974. 
CALCULATIONS AR C STARTED LSING VIRTLAL SOURCE CONCEPT TC REPLACE 
COMPLEX NEAR INJECTION FLOW FIELO. 

0.0 100. T XI TABLE FCR PRESSURE 

193. 193. T PR p S SUR r TABLE PSF 

66*533 . 

6 * 0.0 

6*1503. 

6*1660. 

2*1550. 4*1759. 

2*1550. 4*1833. 

2*15 50. 4*1892. 

2*2272. 4*1942. 

2*2272. 4*1985. 

2*227?. 4* 2C74 . 

2*2272. 4*2169. 

6*2272. 

66* C . 0 


18*. 2*1 

2*0.0 

4*. 233 

2*0.0 

4*. 233 

2*0.0 

34*. 233 

18*. 767 

2*0.0 

4*. 767 

2*0.0 

4*. 767 

2*0.0 

34*. 767 

18*0.0 

2* 1. 0 

4*0.0 

2*1.0 

4*0.0 

2*1.0 

34*0.0 


Sample output for the three-dimensional virtual source test 
case is presented in Appendix D. The processing of pre-solution 
output is identical to the Mach 5 test case, and complete solu- 
tion outputs are presented for the initial and final solution 
station. For the aspect ratio of this particular discretization, 
COMOC ascertained the six outputs could be placed on a page as 
illustrated. Appendix E contains listings of the specifically 
written subroutines for eddy viscosity, laminar viscosity, and 
effective Schmidt and Prandtl number for the virtual source 
simulation. 

An additional output array can be readily provided by COMOC 
during the output phase of execution. For example, referring to 
Appendix A, suppose that the array U3/UREF is to be printed. Then, 
in I0SAVE -1, before the card headed by T, add 3248 to card 
headed by 1247. The “3" refers to dependent variable number 
three, which is U3 in the YY array, and 248 is the entry position 
in the YY matrix in the IZ array. Also, in I0MULT -1, change 
entry to 15*2. Finally, in DESCRIPT2, on third card headed 
EFF.MU/MUREF, add U3/UREF in columns 65-80. 


SYMBOLS 


CROSS REFERENCE LIST FOR EQUIVALENCED VARIABLES 


c 1 

T A SVF r 

C r; 

I'M. 

ii f 

yn nr 1 

ii? 

I w tJG? 

i 

T r “I TN- P 

i? 7 

IP T F - T 

1 1 

xrnwf f 

120 

|FU 

12 7 

If AS 

l I'» 

T r IN I T 

g n, 

t 

l ^ 

t'UT A > 

U l 

Tf * X 

13 'i 

I NT. AS 

r-« 

TM T T fA 

2F 

1 ' 3 A s S 

H 5 

I r * Vi ' 1 t 

ir ” 

f t-» r»; p 

i 

1“ °'r 

2 r < 

IS 


T S P F •' P 

3? 

I 

L ^ C; 

I y 

l 7 7 

|Tnp 

14 ! 

Mill i 

A 1 

< PI | 1 !> 

/. 

K r v ■ • T P 


C'M-ir.i. i>v; , !*' * «T^r « fop gf \fp a t i no unjf p # 

1 - KOINPAP V tnri: FPOO P \V t 

c = wav i r P- stpkf s p»cs«A^. 

P'i f.v T T \FM/ T ANi* P| T Ftl P->» rac |K OPAHPT. 

!> ' j i *; t i "i 7 on 'i i p i ^ t r i ^ o pahft. 

M* 5 *. cr F.’P *y T $-Svv. r r NT r S. 

*n, •' r Tprc v pi-’im HTps, output ip wi.fi ys, 

.Igan <ri!p , yffr \ t rrw*At I \i 

1 = F> (1 ?t|y CUFimifN f\ THT.wr. 

1 = nit O'KIOS. 

c = r ML V?MP-U . 

in Hi al t ;a t ir n pa r a yf tr p in thmyt, 

A|W , IF V \ 7 r .* l a I S T N S3‘M! F V, 

v; r , -*e r M 1 n‘ t 1 \ a Tr p J * |„ T A : >. | F . 

H ! O F F S 1 V'r r f ; v |-f| , AT VI I F ' * TP • JS - fl 0U*V F « 

FT \* T ^ ; 1 ,> >\w A 'I Fl'v I N G A S, 
tNITIVl Pfi. T N Cl’MEC, 

S|"l, i;a '“'LI If 11 ! V IV. 

r--|jNir,> p> ir.. r ; p: r f r,. |.\rrp CUT PUT . 

r N *’* f-r < I 1 1 ) *, I •; » I ? * AF o \ y . 

I -Tt* > - ! N ;V * r:! r PPf SF\T i;u PAST VNLIJF rf FFf. 

l/P’TUl' AM Ar„T V .»T| v r t IS'-' I N CKMiTM 

*“o*i r.‘ M . '< r ! TvG fc‘l\. (USUAL! Y t>! V 1 ) 

l = rn*. !)| V- v,r>i op ■ifrrwt N TtP *1 \r, OUTPUT «Tf.r, 

•W’T T L f - f , 

Tr IPTr'I’l... I |1"' M]f* rriiKT IN hPAurt, 

M . .!*• t t ( »rvi<- I FS a h I c I TP pi-TNT IN & *+' S 1 1 r . 

C'-’M pi :'f r Ft t T' | cr qn-rn-t; Ap.F A r '< IN ^ } . 

n? |N r t A -J I. T r H-IH AND DAT/* r.CN CrATF p J f. p[> j f pT » 

TM Trrur T f- r. n.i hv I C U . 


I * 

7 = 


v a x | ’-u • 

* 


A J c r 1 I TF 
’HAT! M f 


c T A ' 1 L T TV. 
C T A XT LT T V. 


^ c 

« T \J * ' 

- K T v P 

• H F ( r 

' NT. H 

Fh r ' 

T 

* M ) 

l? 

<!'|n 

- '-’T L 

M ! . 
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k n <' r 

- Tr; T%:T 

! ;rv: 

T.i v ’L^p 

t. T 1 

f - 

■- 1. 

1 

K n 

- .It? f A T 

IN T Ft 

' . s T V 

fltplt 

k r p c 
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\‘ 

rrt' 
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•"HIT 
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f 

JK 

K •> W T 

- op T 

M T 
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r' 

At 

1 *F r 
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F 
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ORIGINAL PAGK i. 
OF POOR QUALITY 


136 KSAV 
50 trot 

156 LFIL 
47 LG 

34 LP» INT 

137 LPSTAl 
t3fl LP S I AH 

157 LRS 
102 MTM 

23 NR 
131 NBORD 
6 9 NR SET 


?? NBUG 
2 2 N'C 

125 NC AIL S 

13 ncodrd 

59 NCPTAP 
1 no 

51 NDBL 
124 NIDPRIV 
4P NDO* 

56 ND0UT7 
9? Non? 
162 NOPVSy 
155 NFL ADC 
154 NFL DEL 

14 NFL EM 
35 NF M D 
31 NFO 

58 NFQKNN 

45 NEKP 
10 7 NF IF 2 

46 NF 

96 NF T«Cl 
10 4 NFL TP 
119 NO PUG 
130 NGEIH 
9 5 MM 

5 3 NH2 

54 NHMALF 
68 NT 

6 3 NfNO 
65 NJ 

P8 NL INF 

60 NMR 'HJT 

15 NN 

16 nn n DC 


- PLOT TAPE NO. SAVFO IK CKN INT, 

-NO. OF COLL W N 5 IN DISCRETIZATION. DEF. * 20 

- FILL PARAMETER USED IN FLE*. 

- NO. OF CGIS. i SFD IN CONTES AND DFCFBt. 

- LIMIT ON Oil TP L T C CL NT . DEF. * 100 

- PSIBC INPUT l * PCI NT, z = SLOPE AT LC*FR NCOE 

- PSI«C INPUT 1 = PCINT, 2 = SLOPE AT U*>FER NODE 

- DISCRETIZATION PA RAFF TER OSFD IN EL EM* 

- NO. OF PASSES IN FECLTP. 

- NO. GF ChAR. IN EACH WORD CF OUTPUT VAR. TITLF. 

- Nn, OF NODES AROUND 6CRD P R PF Of SCRETI7 AT I CN. 

- I = STORE DFP. VARIABLE INTO YV ARRAY AND PR TNT 

INTFGR ATICN NODES. (USED IN *NBNDRY* ) 

0 = 510R G VY F NT P V IN DEP. VARIABLE* 

- 1 = STORF DFP. VARIABLE I NfO YY ARRAY. 

- I * PRINT OUTPUT FROM *L7M* ROUTINES. 

- NO. OF CHARACTER’ IN OUTPUT FCRHAT. OFF. = 8 

- NO. OF ROL times f r CALL AT END OF QKNUTN. 

- 0 = TWO 0 JMFN SIGNAL. 

1 = 4 M- SYMMETRIC (NOT CPF RATIONAL); 

- NO • OF ENTRIES IN SPECIFIC HEAT TABLE. 
-INITIALIZATION PARAMETER IN DFCFNS. 

- OKNtIN CD OF TO OF TFRMINF MINIMUM STEP StZF. 

- 7 = CALL "ERVKS. 3 = CALL DERVRL. 

' NO. OF OECR E'F 5 OF FRFEOC*. (USED IN L7H ) 

- C - SET LP DOLTP VECTOR IN «STRE» ONLY CNCE. 

- APPPOV. LENGTH C c DCLTP VFCTOR. DEF . = 5000 

- NO. OF DPDX »S I N P PR I ME TABLE. 

- SFt = 1 IF ELEMENTS ARE TO RE ADDED IN FLEM. 

- S' c T * J IF ELEMENTS ARE TO BE DELETED IN FLEM. 

- NlJMRFP OF ELFMFNTS { TRIANGLES 1. 

* STARTING LPC. PAR, IN OIF ARRAY. 

- NO. OF DFP, VARIABLES TC BF SOLVED. 

- NO. T F DFP, VARIABLES TC BE I MEG. USING • CKM NT* • 

- NO. rf BOUNDARY NODES IN JRCUND ARRAY. (L7N> 

- 1 - USE FI CURVE f G R EPSILCN. 

2 = USE El AM 9 f? CLPVF FOR EPSILCN IK CFCFPL. 

- NO. f) F * NB 1 BYTE WORDS IN TITLF FCP EACH OOP. VAR. 

- CONTROL PAR. IK ' P A AC HO * FOR 1ST OP SUPS. PASSES. 

- PLOT PARAMF TFR TC MIKKOR OUTPUT. I ? = MI RRr»» 

** PRTK7 INPUT AND OLTFLT IN THFRMO. 

- CHUNTFR IN DR HOGS TC INIT. VARIABLES IN GAS. 

- NO. OF FLFMFmts CONTAINING BOUNDARY GRAC I ENT 
INTIMATION FCR ■LH # t 'TRFF* AND *F». 

- NO. OF INCREASES IN STFP SIZE tN CKKUIN. 

- NO. OF POOR r A cc c S Trp S T 7 G IN GKMJIK. 

- STARTING LOC, IN VY ARRAY FCR 17EP. VAR. NP. 

- »T7 ' ARRAY STARTING LOC. PAR. APPROX. = 5*N0C E 

- STARTIKC LPC . IN 11 ARRAY FCR DEP. VAR. NP. 

- LINE CCLNT FIR OUTPUT CONTROL. OFF. = 60 

- MO. n F VAR TABLES TO BE PRIMED. 

- LINEAR APPROX . INO* X, OFF. * 3 

- NLY8FR OF NODES. ORIGINAL V\n" - 

OF POOR QUA'r.rn 


\y NNS - UINFA<* APPRO*. j'NOF * f>E F • * fc 

cc MOOF - *17* ARRAY STARTING LHC. PARAf*ETf?R. W I N.sNNOng ♦ 3 
isa NfinMO - M'TCF NO. AT WHICH ORHCGS IS CCVPUTING* 

I *? .'NCJ F - NO • nr EOUATICN WFING SELVFP FCR PFP. VAR* ♦ NP* . 
r nhmfcp - mo* nr mu^nARv ncoes rr re s<?LVFn for in *cmfgpc» 
14;3 NONF * M(iM-rr\VFPC p \C c CCDF in gas. 

1 A 2 NH1JTPR - NO. nr «caua<v? rn PRINT in cut put. 

30 ND - OEP. VAR I ATU C RFI NG SCLVFD. 

l« * PAP T * NO. «F PAR1ITTCNS (USFO IN • 1 7 H • J OFF. * 2 

l A l N'PRFSS - NO. OF \n.)F c *-T WHICH PRFSSURF IS rCPPUTEP* 

?0 NPRNT -* MO, OF PRINT PnSITfCNSfN A CINE CF OUTPUT* C = 132 
13 f NPS0C1 - NO. OF OOtNOAPirS TC CONPUTF PSfPC. 

13 A MP5IRP - NO. OF NOnr< up AO IN FOR pSJ ilC. 

? NP5ICC - NO , OF F I YF 0 si IOC* ( CGFr IN « STRF* ) 

It APT on r - NO, nr POINTS / OF r». OF ORFFOCN. ijhcuno PAR. ) 

?4 MPTR - NO. rr POINTS / r- 1 ^ RF NT. 1(7*1 OFF. = 3 

151 wmfb * STT = 7 if Ft F M FN TS A NO nFCFS ARt TC Rt PUNCFFC. 

U t N'PVS* - NO. OF PRF<«URf« IN P VS X TAR LF, 

V- NO FI. - N n . 0 e POINTS / FtFRFN'T. (L7H1 DEF. = 3 

f f MPHOF« - S T F A 0 > 5TAT r ParavCTFR IN * HE P I V * . 

2 1 NROW - OFP. VAS. AN 1 OF* I VATTVF A t T^NAt OR IN CKMNT . 
q NWSTQT - t.OCi IF VL T AP F A r . TO RFAD RESTART CONN, IN •Ef'INPT* 
(7 NPTAt»r- - LOGI0AL T A P F \r„ T n STnR^ RL ST ART CCN'D. IN *LINK2» 
(• 7 NS - ORINTOIT OOLNT PAfeANFTFR. 

LSI N *• “ y - SET = 1 If INTERVAL INPUT IS T r af r F AD FCR 
V irp'J TS, o Sf.R T 7 . 

15? ' SO V - SF T = l IF I JTFRVAL INPUT IS T C R.F R F AO F G R 
YPf OR IN OSC' 7 T7 . 

I A * ssrrot - PFSFT SWITCH To 0 HANGF N "l F2 1N.0FCFH* 

14*> VSF03F - R F S FT C r NUT TTFN p l A G IN F| NpRf . 

?7 R, SK f D - ~ NO* OF mu\% LOCMTCNS / n«*P, V AR l ARIF . 

OFF. = NNCTC / 3 

>4 NS’1 * 'TOP F r> 0 OR A v If OUTPUT F r D * Gt N$v, OFF . = to 

15S M S o i> f F - Sr i = t ip S H.!‘C !V OAT A IS TO « (JSFC C N 
7 T Oh T F A N 0 SI Of I s CERVRL. 

12 1 s Sncr - sjl, rt- «‘>-rr V. < I v c CLt;TICN* Ofc'FAUtr = o. 

IrfjO NSPPSr - c * NO S'lU-'C*. f C v PU I A T I C N P CR onthALPV. 

I = L'O ’ H I 1 Sou»CE .■'T'MPUT* Tl TN. 

? = US; ''Hlo '>MT ? SC UR C 5 Cf v P, ( NCT US CO ) 

14 5 or?r H - ^CFT 0 ,ir^ Tl c MANGf C'tFn ?N Of CFt!L • 

14P NTCOTS - STAR t|_|* par a ■>!; rru j ^ C 0 N T F S . ; 

14 J ^TPF“l - START (.7 1>A-S A IF'T'rfc I N Of COR L* 

*■ i Of ITU - 'JO. If mi/ rAROS Tr P F ff A o in s setup* ano 

.OPlNiTrR VT T < r <> •- r. I \ J f>; 3 f/ G ACl OUTPUT S FT . 

0? NT« - NO. IF ft FO'ONTS HAVING N^N-roNSTANT rhTCXNOSS. 

<74 MJP AJ ft - V H. 0 0 l.-D.OMII.fl F it M f N TS I V STRF. 

7 4 VVH - - oro, V I'M AM" v ‘. fro r|v,rwA|PV. ■ p ; Ff, = 

70 n VP . - Orr* , v A : M A U - -vr. -FFP o<| . = 

7! NVU ... — ‘TE ** . VAR I AllC NC* ffs i]»F<lA* . . 0£r. = 

7;m V V - «r!> # vV-UVUll 'C, rrp V c l.nriTY 1. C r r. e 

7? N-VW ^ OFP i V A T I AS L- NT., r CR vri. )Fl TV 2. 0 • ; vCCF. • = ' 

c 0 N v Y ~ NT . t’ c T J WO >1 u f <-’p q TC S r CPF w, *NI$T = 

’> i N’ 7 ? - NO . OF ft Ma- "> 0 ” | r r\C Tf STOpr 77. ^yqr - 
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RARRAY 


ENTRIES 

156 ATNF - RrerrtFNCF SPFPD tf SCLND. 

I p LTNF .LE. C* A INF = $QRTIG*GAMMAF*PINF/RHClNF» 
TF UNF *GT . C. 

A INF = SORT IG*r,ARMAP*R|aM v*tcfinf/kma» 

* AJ - JOULES CONSTANT, 776. 2* 

3 ALC - CHARACTERISTIC ELEMENT StZE. OEF. * MIN. S IOE 

115 BST ART - NOT L SED 

176 CPTOKJ - SPFCIFTC H c AT BRITISH TC MKS 4.184 

83 CUMPX - COMPRESSION FACTOR FOR OUTPUT COL VECTOR. 

INDICATES PERCENT ®F Xl AXIS' TO BE USED TO SHORTEN 
PRINT SPACING I NTFR YALS. DEFAULT *0.3 

84 COMPV * COMPRESSION FACTOR FOR OUTPUT ROW VECTOR. 

SAMF AS COMPC, RIT FOR X2 AXIS. 

124 CON - CONSTANT IS ED IN OF C FBI DEFAULT * 0.4 

70 CONRHO - TF Gt C.O, SET ALL RHO * CGNRHC. 

62 CONV - OUTPLT SCALE FACTOR = 1.0/ REEL 

77 CONI - ALC / CRF*CPDTNF* XMUNF3 

78 CON 2 * CONI / TGFINF 

158 CPA - SPECIFIC HEAT QF AIR. DEFAULT * 0.24 

154 CPF - SPECIFIC HEAT OF HYDROGEN* DEFAULT * 3.445 

16C CPINF - SPECIFIC HEAT COMPLIED IN CPINIT. 

30 CP 0 INF * RFF r? ENCE SPECIFIC HEAT. 

153 CVCP - SPEC. HFAT CONV. LSED IN THERMO. OEF. * 4186.0 
148 CVH - ENTHALPY CONVERSION LSED IN THERMO. DEFAULT *1.0 

151 CVP - PRESSURE CONV • LSED IN THE RPC. OEF. = .4725 E-3 

152 CVRHO - DENSITY CONV. ISFO IN THERPO. OEF. * 16.02 

150 CVT - TFMP. CONVERSION LSED IN THERMO. OEF AULT * 1.0 

144 CVU - VELOCITY CCNVERSICN USED IN THERMO. OEF. * 0.3048 

130 C4EU * CONSTANT LSED IN DFCFBt OFF AULT * 0.00023 

143 C4E0SW - PFRCFNT DF TO AT WHICH TO SWITCH C4F0 IN OFCFRL • 

144 C4FACT - MUL TIPLIFR FOR NEW C4ED AFTER C4E0S W OCCURS. 

13 DELP - PERCENT INTERVAL FOR PR I NT CUT • OFF. * 2.0 

103 DEPLT - PERCENT OF TD TO 8F LSED FOR PLOTTING STATIONS. 

Ill DEL X 3 - TIME STEP LSEO IN CCNTES. 

113 m AST - TIME STEP LSED IN CCNTES. 

114 PL XV I - TIME STEP LSEO TN CCNTES. 

161 OP INF - RHO INF * LINE#* 2 

165 OR TOOK - CFGRFES RANKINE TC DEGREES KELVIN 5 .0/4.0 
175 FBTnKJ - ENTHALPY BRITISH TO MKS 2.3244 

137 FI IPSA * NOT LSED 

138 FI IP SB - NOT lSFC 

135 El IP SH - NOT LSED 

136 P L IPSK - NOT LSED 

14 FPS * ACCLRACY TC<T BETWEEN PRFDICTCR-CCRRECTCR FCR M ULAS 

145 E1F2SW - PERCENT OF TO AT NHICH TO SWITCH FRCM El TC E2 
1 FACT - NTN-DIM FACTOR = ALC / UIKF 

80 FACTH - 1.0 / fC PC I NF4T0F INF | 

59 FACTMU - RHO INF * LINF ♦ ALC 


70 FACTP 
14 7 FimCM 
1*2 FT THIN 
ifc 4 FTTr^T 
il r, 

sc n a v i'* a f 
I 5 H 
12 F n 
l .? ! H" T T 
R« (.MMfV 
q 7 u JMC 
l F H'»AK 
17 H" T K: 


- UC / FAS1«L 

- C-PFI Til CF\ TT V' Tf R* 10.4-1 

- FFF T TO TfcCKi 12.0 

- f-F FT T ! Mprr^c - 0.3J4H 

- OP 4 V I TUICNi r r> <T At. 1 . 12.174 


- f/vcth'J 11.41 IS r, AS LAWS. 

- CliF.R c Vr -T^fAL STF P S| 7E • 

- rnjtPi t i/nmnr f rw ttmf >tp° = hs * fact / f c fl 

- h? mass F|n|» rr«i»LTFD- |N H?P|v. 

- UStC P IJKMUA r np TI*f SWP rjFTr PM TN AT f fS * 

- JFF c » r ‘/r r^TFH(>V, C^PLTfO J\ 0 BMC OS. 

- m/U, t’F'J SWF M LCWFO, OFF . * 0.0*5 * T» 

- MIS f N LA' TI F\ STFP SW. 


p* IS f T - vn T L crr 

11? FPO’S - rn\ ei\K.r 1ST) tk H?M X PFFAULT = 0.2M2S 

i;; Miismt - mtxts'* fff ter f\c> cevpum is H 2 «iv* 

A *? FS - Ctf^M *T' t5 5f? r . 

f FSfsiT - START tF T K : j n 4 Tjrv ST 71 A T THIS VAIUF. 

IFF ALL T = C.l 

5 r-r'! *= - FL'HTlSr no 1ST ! . t SC A u r F A F T f P T K STOUT I ) 

' l« r.'|r>s - ACCL rt ASV M ST PAR AvFtep IS *;JK*U!M-. 
f» Pf.N.I - PWTPNT *r H? AT VtHjr.H T U'MT F| C'.JPVF ! \ OCTM 

PfTM - M'lT l Cf f' 

I 7 £i pr |- T i r - H'’lj'! , s/f fvs i M r, r -4 vs /r^c * 1 C.OlhOI 

1 /r IJOFTTk- _ nn(|';u/ru^ 1 1, 16 . fl ? 

is o ! i’n]M - T|Mf M SlL. MM n-ffS^LtT * PslGI * PMSCFN 
\-l nr^rp - V 1 S- r M'% L> C) or .% \ ptr f’ \ T S T \ J f T A . 

> P I * ! F - *«* r<T».r \« OFF UJI' T * l^ T V ALU P 1\ P T A a • 

IF V T IMTTUWW Sr T = f| \F / (» TmVUTS I ST ) 

!■; I'MT'.K - \F Ft AC V T=: c T is ♦ F*MJ| M . 

«. T p-’M r IS - ’A / A 1.0 

|rf; P.J'JTV.IL — ,>y p c < r CCWpliT'i) | fs r.FTpPR, 

171 P'WSCOV - mM v P *■ tl^^Z / C 

Iff- PSPTOA - Pf'JsPS > T n n^IA .472b r-? 

1 /• o PS FT 1 f ^ ar'ij’M v</» fi#i T r i F Ft N.) S / T * * ? .0J6724 

I /• R pcftp*’ - -’nij'-p S / f f <■•".'!-■ TO P r * TFNS / '>**? 47. PS 

16 7 P S r T ' T - o U! /‘ T<;-» ; Tr TfUF .15-M 

11 t*' - 11.1% r T I ' r OAi/ftvt- jr a 

IP 2 'V' - :v\i a .1 1 ' Ppr SVLf F P4 T| r, n FF AUI T = IP 

IV) - 'PV|M|V S/- ■ Pi\r. frt»;T A* Di^SfTT A TAT ICS. 

21 U 1 - ” F V\ r '( •' • S SUl' ,r 'V 

n* ■’ < SCF - S- » I n. v 'H' -j S ! TV. 

4 T r , F| - •> rr. r > r\r- ( r 

jn r N n T'-l r - i ■•' F ft T..' t \f. v-NSU, 

is 7 u n [Tills « PR'’Ivi. T t!\r 

r y-’ r c 1 - .ip .ii:J A-' r. r \ c t •% \ i . n r r ah T - -1.0 

l vb -9 'fc r - tm a / i-v.j - i , i 

ll) *< HJ ALC - MMFTSF * LIS' <• A 1.0* i 

US R'l . - CP> i f r> A 
;o lTf'1'11 - 2.C A •; A \ J 

• 4 1 PTC im 2 - F T •- A *• v ^ f ( t C> 

24 vrf TMl - R l IV TV / yv-V 

h r ptrriv - i TCf' ! ? p y-sp ? 



56 RTC0N5 - UTNF**2 / <RTflONl*CPCINF*TCFINF| 

57 PTCflN'e - 2.C * R TCCN4 

117 PTOH^I - P>' J * I TOH/TCA - 1.01 
28 PUN IV - UNIVERSAL GAS CONSTANT. DEf. * 1565.33 

129 SET - CONSTANT SCHMIDT NUfBER DEFAULT * 0.7 

ic « srTMfN -not i son 

117 SCTMLT - N’T LSED 

121 SPLIT - rtJTrjFF LSFD IN H2MTX DEFAULT - 0.02835 

44 SO 2 - SQOT (2. C) 

51 STHMIN - 'HT USED 

73 STLCC9 - 3FF. CON. TFMP. T N SLTHERL AND. 0E FAULT * 204.0 

74 STLDFX - f-xPDNFNT IV SUTHERLAND. DEFAULT * 1.5 

1 ? SUOTP - » f P. TEM*. IN SLTMFfiLANO. DEFAULT « 692*0 

71 STL PVR - VISCOSITY LSFD IN SUTHERLAND. DEFAULT * .1163 E-4 
51 SS IN I T - MIN IT / FACT 
35 TP - T1TAL SCLLTfCN TT PE FR r M TC. 

47 tfqgF - TEMPERATURE . 

22 TF - PINAL TIME * TO + TO 

4 THK - DEFAULT ncn-iim. thickness of ELEMENTS. fl.Ol 
22 TIME - CURRENT TIME. 

2 « TP - STARTING TIME. 

146 TOA - AIR TPMPPRATURr E CR COMPUTATIONS IN 01MEN. 

58 TOE INF - REFERENCE TEMPERA TURF. 

147 TON - HYCROeEN TFVPFRATLR6 FOR COMPUTATIONS IN OIMEN. 

40 TRATin * l.o ¥ (GA M M A c ~l .0 ) * XMACHS**? / 2.0 

25 TRNC - I^TPGRATjrN PARAMETER IN « CKNUIN*. 

155 TSINF - STATIC TEMPERATURE CCM IN C°INIT. 

26 TWOPI - PI * 2 • C 

46 U c OCE * MAXIMUM U VELOCITY. 

27 UINF - VHnUTV (FREESTRP AM) 

141 V A - MAJOP AXIS OF ELLIPSE FCR VIRTUAL SOURCE. 

14 2 VR - MINOR AXIS OF F LL I P $E F OR VIRTUAL SOURCE. 

10 A VFI.CST - Uf\|F**2 / I 2.0*G*A J*CPA*TOA) 

139 VH - CFNTFR OF H2 ELLIPSE FOR VIRTUAL SOURCE. 

14C VK - CFNTRR OF H 2 FltTPSE FOR VIRTUAL SOURCE. 

177 vinroN - vi sens ! tv British tc mks 1.488 

178 VLBTno - VISCOSITY BRITISH *C CG S 14.88 

102 VST ART - PERCENT O p TO AT l»H If H TO START V COMP. IN CCNTES 
81 XI “ INITIAL 'PORT, ON X l AXIS. DEFAULT * 0.0 

125 XL AM - CONSTANT L*EO IN I5FC FBI DEFAULT s 0.09 

37 XI p * LEWIS NUMBER • OE F A L L T * 1.0 

109 XMA - MOLECULAR WEIGHT OF AIR. DEFAULT « 28.97 

61 XMflCHP - LOCAL MACH MJMRFR . 

154 XMA CHS - INITIAL MACH NO. LSED IN DI PEN. 

66 XMF - MA<« FRACTION OF Ft LID. 

172 KM FACT - UTN F * SORT I * ma / ( T CF I NG*G AMM AF*G*RUN I V 1 1 

110 XMH - MOLECLLAK WEIGHT OF HVDROGFN. DEFAULT * 2.016 

118 XMSDF - MASS OPEECT COMPUTED IN G3CCNC. 

126 XMUAIO - VISCOSITY flF AIR. 0.0000115 

127 XMUH2 - NOT LSFD 

38 XMUIHF - VISCOSITY ( FREE STREAM) 

128 XMUP5 - NOT USED 

98 XPRIME - NON-DIM. PRESSURE GRADIENT AT PRESENT STATION. 
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«2 XStALF - XICOR SC 41 E FACTOR. DEFAULT * 1.0 

41 XSFFT - SHIFT X-CCOROINATF. DEFAULT * 0.0 

74 XT - OUTPUT STATIC* * TIFF * FACT / °FFL 

112 XU AST - LAST TfMF ST^P LSFD I* CCNTFS. 

9? V! . - INITIAL CrORO. ON X2 AXIS. DEFAULT « 0.0 

53 VS CAL F - X2CCR SCALE FACTOR. DEFAULT * 1.0 

A 2 Y SHF T - SHIFT V-CCORD 1 NA TF. DEFAULT * 0*0 

10 1 VHP - UPPER V IN OF CPU . 

173 7MAX - MAX* EFRIVATIVF CaVPLTED I * QK*UIN. 

2S 7T - ^fHFN SIGNAL CLFRFNT fTHF* 

6* l TF ST - STOP P 000 A A ‘A KHFN VAX* (77> IF 7TFST. OFF. = . U-4 
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OFFINITHV rfyjTPV POINTS IN I l ARRAY. 


I AR P AY 

FNTPY 

201 TCOt ~ — OUTPUT COLUMN VECTOR USED IN FEQllTP. 

202 TROW — OUTPUT ROW VECTOR USED IN FEOUTP. 

293 1FMTHH HF A DINGS F OR OUTPUT VARIABLES. 

204 !TJT|.F TITLE FOR START OF FACH OUTPUT PHASE. 

205 TIP TNT LIST (IF DEPENDENT VARIABLES. 

206 !<BNO NO. OF BOUNDARY NODF S / OEP. VARIABLE. 

210 T INC 01. NO* OF NODES PER COLUMN. 

211 ITNROW NO. OF NODES PTR ROW. 

218 ICPTAB --- SPEC IF l" HFA T TA OLE ENTRIES 

219 ITTA8 — TEMPERATURE TABLE ENTRIES. 

220 nUSEO COUNTER USFD FOR OUTPUT IN F 6 OUT P. 

223 IT IPOS — - TEMPORARY ST 0* ASF FOR X1C0R COORDINATES. 

224 TV2P0S rrMPORARV STORAGE FOR X?COR COORDINATES. 

224 TIB VO — - ARRAY OF BOUNDARY NODES FOR DEPENDENT VARIABLES. 

226 I INODE --- LIST OF ELEMENT CONNECTIONS (3/ ELEMENT ) • 

232 TNWN — - SOLUTION ORDER nF NODF S FOR DFP. VAR. IN OCRtV. 

233 I TNDEY — TRUER OF NODES BY COLUMNS FROM LEFT TO RIGHT. 

234 l f NDR A — ORDER OF NODES BY ROWS FROM TOP TO BOTTOM. 

235 TNDC'H OUTPUT COLUMN POSITION QF NODES. 

236 1 1 EL S VO. OF ELF ME NTS CONNFC TED TO NODES. 

237 TEIEM — - NOT USED. 

238 1 1 BOR D LIST OF B0R3FR NODES IN CCW ORDER. 

241 18211 B2L1 MATRIX COMPUTED IN 36GMFL. 

242 IP 21 IS — - B21IS MATRIX COMPUTED IN GEOMFL. 

245 T52U A — 5 21 1 A ANTI-SYMMETRIC MATRIX# 

247 ID IF FIRST HALE USED TO STORE DIFFUSION COEFFICIENTS. 

2ND HALF USED TO STORE SOURCE TERMS. 

248 IYV -- STORAGE FOR 2 VALUES OF DEPENDENT VARIABLES. 

249 127 — - STORAGE FOR 2 VALUES OF DERIVATIVES FOR I)F r> . VAR. 

250 TX1P2 ELEMENT LF NS THS COMPUTED IN GFOMFl . 

271 iOUTl — - TEMPORARY STORAGE. 

TO 

276 ntlT6 TEMPORARY STORAGE. 

277 I AREA AREA OF ELEMENTS TIMFS TM l CKNESS COMP. IN GEOMFL. 

278 TCP — - NJOAt VALUES OF SPECIFIC HEAT. 



279 |M — N30AL VALUES OF ENTHALPY. 

2*2 n — temporary storage for dependent variable. 

283 I3P — - TPHPORARY STORAGE FOR DC R I VATt VF OP D C P. VAR. 

284 IRH.1 NDDAL VALUES OF DENSITY. 

285 ITFMP NODAL VALUES OP TEMPERATURE. 

283 ITK — - ELEMENT THi:KN e SS DISTRIBUTION. 

239 !*ICD* N3DAL VALUES OF TRANSVERSE COORDINATES. 

2«0 IY2C0R NODAL VALUES OF NORMA! COORDINATES. 

291 fPRFSS --- NODAL VALUES OF PRESSURE. 

29? TAM'J NODAL VALUES OF VISCOSITY. 

301 fOL 8 HOF UL A ST ST 03 AO E FOR CONTES. 

302 rCPL DELU STORAGE FOR CONTES. 

303 TVFt — - PHD* V STORAGE IN CONTES. 


304 IW R HO* W STORAGE IN CONTES. 

306 iv 12 — - TRANSFORMED X-AXfS OF ELEMENTS. 

307 t*?3 TRANSFORMED Y-AXIS OF ELEMENTS. 

308 TVMDO Y- COORD. USFD IN CONTES AND OFCFftl . 

309 TSFJM1 --- 1ST TERM OF 82001 ELEMENT MATRIX. 

310 ICF3M? 2ND TERM OF 82001 ELEMENT MATRIX. 

311 IP1DTS — - LIST OF VARIABLES TO 96 PLOTTED. 

312 T»LTYP TYPE OF PLOT Tn BE GENERA TED. 

313 TPLSCL --- SCALE FACTORS TO RF tlSFn FQR PLOT. 

314 TSCHMT — - NODAL VALUFS OF SCHMIDT NUMBFRS. 

315 IMMAT — - LIST OF MATERIALS IN REGION. 

316 T*FLFM — - ELEMENT VAL<J F OF MATERIAL. 

319 I SRC 6 NOT USED . 

320 I H ST AT — - N30AL VALUES OF STATIC ENTHALPY. 

321 TCALt — LIST OF LINK NOS. TO CALL AT END OF QKNIIN. 

32? ICALLS LIST OF ROUTINE NOS. IN ASSOC. LINK TO BE CALLED. 

323 TDMULT -- LIST OF MULTIPLIERS FOR OUTPUT VARIABLES. 

324 T3SAVE --- LIST Of VARIABLES TO RE PRINTED IN OUTPUT. 

3?5 IN OUT — - TEMPORARY STORAGE FOR OUTPUT VAR. AND SOURCE DATA. 

327 IICNCL LIST OF NOD*" S / COL. IN AXI-SYM. CONTES. 

323 IICMDX --- LIST OF NHOf S TD BE USFD IN SOLVING AXt-S. CONTES • 

3?R fWCDS — - COST N c OF ANGIE / COL. IN AXT-SYM. CONtFS. 

3 3D IVSIN SINE OF ANGLE / COL. I N A XI -SYM. CONTES. 

331 I I PAR — LIST ?F PARAMETERS TO PRINT AT START OF OUTPUT. 

332 nPAR --- HOI L PR ITH 0= SC. OF PAP. AT START OF OUTPUT. 

3 33 ISUTI 0 LIST OF CONSTANTS TO BE USFD IN SUTHI.D. 

334 IPR NODAL VALUES OF PRANOTL NUMBER. 

335 IMP AR LIST Of MULT. FOR PAR AM. AT START QP OUTPUT. 

336 IFPS NODAL VALUES OF TURB. VI SC. COMPUTED TN 0FCF9L. 

337 ISKNFR t 1ST OF SKIN FRICTION PARA. COMP. IN WLELXS. 

339 ISTN — - LIST OF STANTON NOS. COMPUTED IN WLELXS. 

339 T v 3S T LIST OF DOWN STRF AM STATIONS IN PRESSURE TABLE. 

340 ipvsx — ust of downstream pressures in pressure table. 

341 TOP* 3 --- LIST OF DOWNSTREAM STATIONS TN PRESS. ORAO. TABLE* 

34? iDPvx — - LIST OF DOWN STREAM PRESS. GRAD. IN PR. OR. TABLE. 



REFERENCES 


1. Battsr, A. J. and Zelazny, S. W. , "COMOC: Three-Dimensional 
Boundary Region Variant, Theoretical Manual and User's 
Guide," NASA CR- 1324 50, 1974. 

2. Baker, A. 0., "Finite Element Solution Algorithm for Viscous 
incompressible Fluid Dynamics," Int. J. Num. Meth. Engr., 6, 
1, 1973, 89-101. 

3. Baker, A. J., "A Finite Element Solution Algorithm for the 

Navler-Stokes Equations," NASA CR-2391 * 1973. 

4. Bauer, A. M. and Baker, A. d,, "COMOC: Thermal Analysis 
Variant, User’s Manual," NASA CR-130148, 1972. 

5. Orzechowskl , J. A., Manhardt, P. D. and Baker, A. J. , "COMOC 
Two-Dimensional Navler-Stokes Variant, User’s Manual," Bell 
Aerospace Report D91 98-954001 • 1973. 

6. Vincenti, W. G. and Kruger, C. H. , Jr., Introduction to 
Physical Gas Dynamics , Wiley, New York, 196S.. 

7 . Z1 enkiewlcz, 0. C . , The Finite Element Method in Engineering 
Science, McGraw-Hill, London, 1971. 

8. Nigro, B. J. , "The Derivation of Optimally Stable and Accu- 
rate, 3-Stage, 1-Step, Explicit, Numerical Integration 
Methods," Bell Aerospace Report TCTN-1010, 1971 . 

9. Mascitti , V. R. , "A Simplified Equilibrium Hydrocarbon-Air 
Combustion Gas Model for Convenient Use in Air-Breathing 
Engine Cycle Computer Programs , " NASA L-5825. 


APPENDIX 4 

DATA DECK LISTING FOR MACH 5 
TWO-DIMENSIONAL FLOW CHECK CASE 


FEBL 

COMTITLF 

CHEW CASE* TWO DIMENSIONAL SUPERSONIC FLOW WITH PRESSURE GRADIENT 


FENAME 





CNAMEOl 

NEOKNNtZ, 

I GAS«0* 

I FR*0 » 

KDUMP*0, 


NPVS**tl, 

N SC X* 1 * 

NSC V* l, 


RFNC 

&NAMFO? 

U INF*40C4. &, 

' TOF I NF *1800. , 

RFFL* .0132 



TD=0 . 1, 

TD*0. 2* 

DELP=5.0, 

EPS*. 01* 


V START = 5*0, 

CPA*0.24, 

CPH*3 .445* 

T1A*1800«, 


TOH=C.C, 

XMA*2 8.S7, 

X«H*2.016, 



X SC AL E * 1* C , 

VSCALF*1.0, 



fiFNC 
FECIMN 
L INK 1 

l 



SETUP 


1 ? IOOO, 2 2 t CGC * 


T 

1 2 1000, 212 1CCC, 

T 

1 21, 1 ?, 

T 

CHECK CASF.rwn n IMF NS IONA L SUPER SOM C FLOW WITH PRESSURE GRADIENT 
VepR^iCF p NGI. ! SH— Ft ENGLISH-1 N M-K-S C-G-S 


DONE 


MpARA 

2 

-I 

7 

If 2 

164 

163 

2 

7 

2 

164 

163 

■ 2 

7 

2 

170 

17 4 

2 

?. 

2 

165 

2 

2 

- ITS 

2 

2 

2 

2 

7 

2 

176 

2 

2 

2 

2 

177 

178 

2 

7 

160 

168 

167 

2 

2 

2 

2 

2 

2 

2 

2 

7 



HDL 1ST 


LENGTH......... ' 

.FT. . .. .. .. 


• 1 N. ..*.*•*. 

.ft 

• W+ m mm m m m mm 

VELOCITY 

•FT/S. ..... 


N * Am • • • • '* * • 

.M/S... 

. CM /S ..... .. 

DENSITY 

. L8K/FT3. .. 


« N. A. ..... .... 

. KG/M3. 

. G / CC... .... 

Temper atub e , . . . 

.rakkinf... 


• fS • A« • • m m mm m 

.KELVIN..... 

mHm \m •••«•• • 

CNTHAI »v 

.ftTt/LRM. .. 


m N • A • .».«.» mm • • 

. KJ/KG 

» N . A .... * . . ... 

FR p ? .SPEC. WF AT 

.RTl/tBM-ft. 


• N* A* • • » m m m m 

.Kj/KC-K.... 

• N • A • * 

VISCOSITY...... 

.ftM/FT-S.. 


• NiA» • • • m m 

. NT-S/M2. . . . 

•POISF. ..... 

LOCAL P«FSS IIP *-■ 

.PSP. ...... 


. PS 1 ........ 

• NT/M2. » i . . . 

.TORR ....... 
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LOCAL SOLUTION MACH NC. DPDXl ILBF/FT31 PAX, H2 CONC. NIX EFF.IETAt 

Xl/LRFF QXl/lREF EPSILON CX1MIN/LREF 


TCNUMB 

-l 



200 

4*43 

200 27 200 2*27 

200 

10 

200 

2*10 200 5 8 200 58 200 

200 

97 

200 

57 2C0 ■ 200 30 200 30 200 

200 

38 

200 

2*38 

999 




200 

36 

36 

36 36 

200 




61 


100 

134 122 

II 

12 

14 

85 

TCSAVe 

-1 



1248 

285 

320 

284 IC248 

2248 

278 

4248 

9246 8248 

1247 

334 

292 

314 

T U, T» 

FS»RH0,N2, 

V»tP »H TOT »H2 *02*01 FU* PR NO. *LAM.VI SC. tSCT.NO. 

IOMULT 

-1 



14*2 




T U*T» 

HSfRH0»N2* 

V .f P »H TOT * H2 *02 * Dl FU * PR NO. tLAM.VISC. tSCT.NO. 


neSCRlPT 2 

Ul/UREF T/TREF HSTAT/HREF RHO/RHOREF ELEM.N2 MAS.FRAC 

U2/UREP CPF/CPFRFF HTOI/HRFF FLEW, M2 M AS • FR ACELEN « 02 MAS.FRAC 

EFF.MU/MUREF EFF, PRANDTL NO.HU/MUREF EFF.SCHMIDT NO, 

CCMOC 
C ESCR IPT 

CDMOC CHECK CASE FOR TWO-DIMENSIONAL FLOW WITH PRESSURE GRADIENT, 

A COMPARABLE SIMILARITY SOLUTICN HAS BFEN REPORTED BY CHRISTIAN ET At* 

ARL 70-0023, SPECIFIC CASE CONSIDERED CORRESPONDS TO MACH NO. 5 BET A*0<5* 

SI 0 1*0 (ADIABATIC WALL), SCLUTIGN STARTED AT X*0.10 FT. WITH SIMILAR 
SOLUTION PROFILE. LAMINAR FLOW WITH VISCOSITY FROM SUTHERLANDS LAW, 
DISCRETIZATION SPANS THREE TIMES INITIAL BOUNDARY LAYER THICKNESS. 

ISOENERGET IC FLOW WITH TOTAL TEMPERATURE * 1800 R. 

DONE 

VX3ST 

11*10.05 O.L T XI TABLE FOR PRESSURE 

VPVSX 

4.3494 3.41 2,846 2.46 2.2176 2.02 1.857 1.73 1.6178 1.53 1.4451 

T- 

IPINT -l 

I 4 E 10 9 3 2 T INTEGRATE Ul *ENTH. *C2*N2*H2*U3«U2 

KBNO I 

BOTTOM DONE 

FIXES Ul (VARIABLE NO. 11 ALONG MALL TO INITIAL VALUE 
KBNO 2 

BOTTOM OCNF 

FIXES UZ (VARIABLE NO. 21 AL CNG WALL TO INITIAL VALUE 
KBNO 4 

BOTTOM DONE 


183 


F|*FS H f VARIABLE NO. 41 ALONG WALL TO INITIAL VALUE 


I CALL 

-1 


2 

5 2 

2 1 1 2 T 

t C ALL S 

-l 


10 

6 4 

12 5 t 3 T 

L INK 3 

4 


L INK 1 

3 


VTFMP 


-58 

42*1800. 



T INITIAL TOTAL TEMPE RATLRE PROFI LE 


VYY 

-27 



2*0.0 2*865. 

2*16*4. 2*2373. 

2*3004. 2*3550. 

2*3879 

2*3992 

. 2*4CC4. 2 

24*4004.8 


T INITIAL lit 

PROFILE 



VYY END 
VVY 

-27 




2*0.0 2*2.12 2*20.14 2*53.52 2*83.2 2*109.3 2*165. 

2*251. 2*441. 24*45C. 

T !M I T I At 1J2 PROFILE 
VYYFNB ? 

VYV 

42+.221C 

T IN IT T At. 0 2 MASS FR ACTION PROF ILF 
VVYENO 8 
VYV 

42*»167C 

T INITIAL N7 MASS FRACTION PPCF1LF 
VVYFNO 10 
VVY 

42*0. C 

T IN T T I At M? MASS FRAFTirN PPOFUF 
YYYFnO 9 
0«N (N T 
RESCRIPT 
K CNE 

i>FSCp|pt 3 

R EF ER'ENC F L FNC TH tlP EF 43 FT . 

rffep c NCF viscosity. laminar VAIUF 

FV At. i;J A TFO at off. TEMPERATURE. 38 LRM/FT-S 

F-R F t S T 0 F AM VELOCITY AT XOlELREFi 27 FT/S 

ST ANNA T ION TEMP EPA TURF (CONSTANT ,*TR C F| 58 Cf C, P 

FREEST RE AM OENSITY AT XO(.=RHnPEF| 10 LRM/FT3 

ER F E S TP LAM MACH NUMBER AT NO 154 

STATIC PRESSURE AT XC 9 PSF 

NtJMRFo o f NCI Of S- -16 

NijMP FP O F E IN I TF El FEE NTS -14 

OPNF 
CGMOC 
I NO 


01 MEN 
GEflHF 


APPENDIX B 

DATA DECK LISTING FOR VICTUAL SOURCE 
THREE-DIMENSIONAL CHECK CASE 


FEBL 

COMT ITl E 

CO HOC CHECK CASE FOR THREE DIMENSIONAL REACTING BOUNDARY REGION FLOW 
RENAME 
GNAMEOl 

NEQKNN-5, I GAS-1, 1FR-0, KDUMP-O, 

NPVSX-2, NSCX>1* NSCY-lt 

NE1E2-1, 

SEND 

CNAME02 

U INF-2272. » TCFINF-533.0, REFL-.003333333, 

TO-O .0, TD-O.IO, OELP-5.Q, EPS*0.01, 

V SC ALF«C. 003333333. YSCAlE-O. 003333333 , VST ART-lOl.O, 

SEND 

FEOIMN 

l INK l l SETUP 

I 75 100, 2 50 100* 3 125 IOC, 4 150 100. 5 225 100, 

T INCREMENTS BETWEEN X3» node-numerator-denominator 

1 5 1C, 7 5 1C, 8 125 100, 9 175 100, 10 250 100, 

T INCREMENTS BETWEEN X2 
1 II, l 6, 

T 11 ROWS AND 6 COLUMNS NORMAL! 7ED BY L REF , HENCE X“V SCALES «LREF 
CHFCK CASE, THREE DIMENSIONAL REACTING BOUNDARY REGION - VIRTUAL SOURCE 

REFERENCE ENGLISH-FT ENGL ISH-IN H-K-S C-G-S 


DONE 

MPARA -1 

2 7 162 164 163 

2 2 2 164 163 

2 2 2 170 174 

2 2 2 165 2 

2 -175 2 2 2 

2 2 2 176 2 

2 2 2 177 1TB 

2 7 . 169 168 167 

2 2 2 2 2 

2 2 2 2 


HOL 1ST 


LENGTH.... FT. IN .CM......... 

VELOCITY....... ,FT/S„ . N. A. MAS .CM/S 

DENSITY LBM/FT3 N.A KG/M3. G/CC 

TEMPERATURE RANXINE ■ .. . • K. A KELVIN..... .N.A.. 

ENTHALPY ,. .BTU/LBM..., . N. A .KJ/KG .N.A........ 

FROZ .SPEC. HEAT .BTL/LBM— R». .N.A. .Kj/RG— K. ... #N.A*. ...... 

VISCOSITY...... .LBM/FT-S... .N.A. ....... . .NT-S/M2.... .POISE 

LOCAl PRESSURE .PSF .PS!.... .... .NT/M2 ...... .TORR 

LOCAL SOLUTION MACH NO. DPOXl ILBF/FT3I MAX. M2 CONC. MIX EFF.I ETAI 








s^Vv’r^f* *» : : ^^T>T r r^ “' 7?r?v r^ 


■ 3 . 




« 


Xl/LRFF 


DXl/tREF 

EPSILON 

DXININ/LREF 

IPNUMB 






200 

4*43 

200 27 ZOO 2*27 

1 


200 

10 

200 

2*10 200 58 

203 58 

200 

200 

97 

20C 

97 200 200 30 

200 30 

200 

200 

38 

200 

2*38 



599 






200 

36 

36 

36 36 



200 






Cl 


ICO 

134 122 



LI 

12 

14 

65 



fOSAVF 

-1 





1248 

285 

320 

2 84 10248 



2248 

278 

4248 

9246 6248 



1247 

334 

2 52 

314 




f U* T* HS »R HO »N?» V*CP »MTOt *H2 »02 . 01 FU * : PR NO. . LAM. V I SC .*SCT ,NG . 

JflMULT -l 
14*2 

T U,T» HS.»H0,N?tVtCPfHTnT*H2»02tniFU,PB NO. » LAM.V I SC . , SCT .NO. 

OESf^IPT 2 

t| l/URE p T/TRPF H5TAT/HREF RHC/RHOPEF ELEM.N2 MAS.FRAC 

U2/UREF CPF/CPFftEF HTCT/HRFF ELEM.H2 MAS . FP- ACELEM .02 MAS.FRftC 

FEE .MU/M IIP FF FFF . PPANOTL NO.Mt/MUREF FFF.SCHMICT NO. 

CCMOC 
CESCR Pt 

CHECK C ASF * TH» Ff- P I MF NS TE'NA l reacting boundary rfgtcn - VIRTUAL source 
(F 2/02/AIS SYSTEM h ! TH FOUILI0R1UP CHEMISTRY!. PROBLEM CCNSIGEdfO 
aEPPFSFNTS TRANSVFRSF H2 INJFCTIC1N INTO A supf«s ONI C AIR STREAM 
C FAR Af Tfo I ST IC OF SCpAMJFT FUEL I N'JECTl CN» SEE ROGERS NASA TNC-6114 i 
IS 7 1 AN" NASA T v*-*476 ( 1971 F CR FXPERlMFNTAL STUDY OF THIS PROBLEM. 

TU'iBt-M FNCF MTOFL EMPLOYED IS DESCRIBED IN USER'S MANUAL NASA CP-132450t 1974. 
CALCULATIONS ARF STARTED LSING VIRTUAL SOURCE CONCEPT TC REPLACE 
CO*PL r X NEAR INJFCTICN flow FIELD. 

OCiNE 

VX3ST 


0.0 

100. 

T XI TARtE 

ECR FPESSURF 



vpvsx 






193. 

193. 

T pressure 

TAB IE PSF 



IP INI 

-1 





1 

4 P 

1C 9 3 

2 T ! NT-GPATF 

Ul »FNTH. ,C2.N2.H2,U3,U2 

KRNC 

bottom 

l 

OCNE 





FIXFS U1 

( VARTARLF NO. 

l> ALONG MALI 

TO 

INITIAL VALUE 

K RNO 
BOTTOM 

? 

FIXFS U? 

HONE 

(VAR I ABLE NO. 

21 At CNG WALL 

TO 

INITIAL VALUE 

X RNO 
BOTTOM 

4 

incNF 





FIXES H (VARIABLE NC. 4) ALONG WAU TO INITIAL VALUE 




KBNO 8 

BOTTOM 30CNE 

FIXES H (VARIABLE NO# 81 ALONG MALL TO INITIAL VALUE 
K0N9 9 

BOTTOM 30CNE 

FIXES H (VARIABLE NO. 91 ALONG HALL TO INITIAL VALUE j 

KBNO 10 


BQTTOM 

FIXES H 

3DQNE 

(VARIABLE NO. 10 ALONG NALL TO INITIAL VALUE 


ICALL 

2 

*1 

5 2 

2 1 I 2 7 


I CALLS 

-1 

• 


10 

6 4 

12 5 6 3 T 

DIM8( 

CEOMFI 

L1NK3 

6 fJLltf I 

4 

3 


VTEMP 

-58 



669333* 

T INITIAL TOTAL TEMPERA TUBE PROFILE 
WY -2T 

6 * 0*0 
6*1503. 

6 * 1660 * 

2*1550. 4*1739. 

2*1550. 6*1833* 

2*1550. 4*1692. 
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66 * 0.0 
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FREESTRFAM MACH NUMBER AT XO 
STATIC PRESSURE AT XC 
NUMBER OF NODES 
NUMBER OF FINITE ELEMENTS 
TONE 
END 
EXIT 


2*0.0 4*. 233 2*0*0 34* *233 
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2*1.0 4*0.0 2*1.0 34*0.0 


43 FT. 

38 LBM/FT-S 
27 FT/S 
SB DEG R - 
19 LBM/FT3 
154 
9 PSF 
-16..' 

— l’4 v ; . : 








ecceec cos 
crrcccjcrccccc 
««>" 


© 

'imu' 


ecccr ccc **or»nnn 

sect ••**«*nnnm»nmio 

“icccc "•••♦•♦••♦•onoiKHibooftdi 

c 2 cc •*****«******r)r>Dtwof>(»n 

cccc ******•*#*•**•*{! no noo 
C2eC’~«**« ****■*"•““ “ono ~~ 
cccc********** n 

cccc******** 

. 'cccc****** ■*' ~~ 

cccc***** 

♦ccce** ccc 

— *'*rccrcr tew ~ 

••••ccccccccccccccc 
••••••r.ccrccccccectc 

*«•♦»»* cccccc ~iret — 

*••*••• 

*••*••* 


tgg — 

cccccc err 

CCCCCCCCCfCCC 

twn*ojo*«rcr<r 
******ccccc cr»- 
***cecc 

— *ctcc** 

. **CCCC**» 

•••cccc**** 

*wr**tctc*****» 


“***PttPnrrOO' 
♦oonoomorwo 
roooooooioonooo 
mono**** 5 ooorw - " 
aboo****** onoo- 
oooio******* oooo 

Oooo ••****« noocr 

men «•*•*•• noon 

ooon ******* nono . 
- ooprv *******opno 
OOPno ******oii 
oioni******** 


cccc******* 

cccc******** 

CCCC - *•••**"“* 

cere ****** 
cccc ******crc 
“cccct - ****cerfr - 

CCCCCCCCCCCCCCC 

cecrccreccecec 

cccctc**ccc 

******* 

. -^ nrrorif>n * 


fOOWOOft 

— 


WH1MI 

NO***** 1 


H**0 
OWWW 

WWIWWB 

ftnoo** •***••* “HE* CM’WOr*l ‘ ofh 

•*••*•****. NCM NP* OC* ♦♦•*••**•• 
••*«**•*** *M* * OH* *•••***•** 

- — • ••-•*****r*-* , **jw'™ ***•***>-«*•• — 

********n N ****«*******MK********* 

*»»»»nrw»» ** » * ** * **<tl N»»»*» 

>«•*** ******* * c M * *~ — 

nstt '********* os* 

0*H ’ 0*0 

_ mm***mh - 


00000010333 

normoocopnom 
otjooo" **** **onrttnr“~ 
onoo ****** soon* . 
now ******* oooo 
0300 — *♦*♦*•* — oo»» 

oono > '*•*••** 0000 

coin******* 3300 

“llO******* 1330" 

0****** 33311 


**••**•*0011331 

***•*••••001333 


<W 0*1*0* 


1,****- 

tPW*l««* 


e o n o « 


— TiwonrioMH-coMti^airMFCMjMicr - 

THIK-c-ftllCNMflfltL 0m*<0MV »FGI« »«HW 
C»fl?CH”C*5C;T«rO“OfHf KSf ON*t” SO«»SOM(C TlO»T4«!t« >«mu**“«K©fWT * 




190 



(>oio| r* , nF5r(nr»TJ f "J 


r.MFtx CVS* tu Fin||7*|ty «*SOIFNT“. " ~ 

a S1’*IL*»I*V VumiOl *<«0 HFFN bF 5(?RTF9 *v rwtSTMtt ft at* 

^crfrir rn S r r.rvsr» c *t r » monrstiOHO^ Tp t*CH »9.< 

■S‘iS'i.*5 «,a«i nann «ai t », $iiu*i om motFO'AT' *»o.io' f*. with « i t.a>' ' 

<«st.iTtni» w»nr ti f .1 fi *i« v^h viicniiT* r*<w iiiTMFULaios iu. 

HUrsrT [m f "*•■! <»**•% !M?tr T|»c< lyiXtflL "O'JV^Affv I «¥«F THtrKMFll. 

♦ ^prvra-eTif ri nsi «|TM TlTti. tf»bfb* 7>J»F "• l«09 »«"“ ™ 


7 V'P’-fM. N n *m F^n v»»*aH|F 


? ‘-Ml-ly?. !"ib vMinr 2 


2 m yrnwi* * 


'■> w T ,, * t |, ' v WS =r>a va>ia<M f_ l 


3 

A 

5 

ft 

b 

9 

1 

10 

li 

12 



11 

1* 

11 

T|V 

l? 

t* 

to 

T io 

“21 

>2 ' 



73 

24 

7% 


77 

2* 

20 

in 

31 

12 

# k 


13 

w 

35 

3* 

17 

3* 

50 

10 

M 

42 


* 

TyFecoATny fob 

V A«M 4 W r a 






* 

A:' 7 

■ A 

b . 

r 

B 

0 

DO 

U 

12 

•* 


1 * 

n 

» 

15 ' 

17 

IS 

W 

*0 

21 

22 



»i , 

24 

75 

7* 

77 

2S 

70 

10 

Jl 

17 “ ' 



■ 

'■ 16 . 

li 

. 15 

17 

IS 

M 

10 

41 

47 




%? TNTF^aar in'} n-vif"; FOo vvt i*bif 


t 

7 

1 

A 

4 

5 

" 7 ” 

" 3'” 

—'5 

I'o* 

tl 

1 ? 

11 

14 

l r - 

14 

17 

H 

10 

20 

71 

7? 

71 

24 

7'! 

2 * 

77 

'7.4 

20 

39 

31 

32 

11 

- } 4 - - 

10 

‘ 15 " 

37 

"14 " 

“30 

"* 40“ 

4t 

-4? . 









[■Nfir 

-,FATM»' 

•JfOfl FOB 

vai iA 0 t e 

10 




"i'- 

3 

1 

6 

A 

ft 

7 * 

“4“ 

— ’9~ 

tor 

ll 

1 ? 

»3 

14 

lb 

If- 

IT 

l?V 

19 

20 

21 

27 

23 

K 

?*> 

25 

27 

ro 

20 

30 

11 

37 

11 


7 r < 

15 

37 

is* * 

I® 

"40 


OR IGINAL P AGE IS 
OF POOR QUALITY 


41 4? 



« MWWWPW V1W VWI4HI 9 


1 

t 

1 

4 

*! 

H 

7 

8 

9 

10 . 

11 

12 

11 

IN 

15 

16 

17 

w 

19 

20 

>1 

ft 

2V 

'Sn 

25 

26 

27 

2# 

29 


31 

12 

3*1 

14 


36 

37 

38 

36 

40 


SI « 


'2 VARIASI. F5 OF IMG tNTFWtif CO. 

1 4 

~ - T^RiASr *T vitHtriSiZ 

1 * I M t 2 

* " unCZ-on iv iisfo. " ' “““ 

ft*«lFR 1* t*li* S NT ^NH 0* OKNMTN 

^tTNkjrnv itsmst 6i ri*iK?m — t T umnav — r m rr?T 
u*mtr &> tin«i i» link 






INfTT *1 '1Kn|TH« 


i nr> 

■A' 

1 

? 


X 

0 

j mw 

X . 

l 4 

REVMTO 

X 

i 

5 

NT**: ft* 

X 

0 

ft 



T 

R395 

X' 

0 

9 F.P81NT 

X. 

3 9 

>wsr*T 

X 

0 

10 

NV 

* 

0 

ll V-’TDIP 

* 

t 

( 7 

*t in jt 

X 

-■ • i) 

’ll’ nr.pi!>n 

» 

0 14 

NFLEH 


49 

”15 

NV" 

V 

" 1 

ia •!'r' ,c 

X 

4? 

IT 

\vs 

X 

ft 

i« np.m*t 

X 

2 19 

NO? 

« 

40 

20 

NPRNT 

B 

13? 

)l NS'U 

■ X. 

■■ ? 

•> i 

nr 

X 

9 

?1 N5 

X 

4 24 

NPTF1 

X 

3 

25 

KINO 

C 

4 

?V ' V|VT 

-X 

1 

>7 

nss i» 

X 

60 

TP I945S 

X 

“ 1 29 

*" 10IJRI 

x 

0 

”13 

NP' 

X 

... ? . .. 

ll nfo 

A 

■ T 

v> 

I S Mi 

* 

0 

11 NSUft 

X 

0 34 

IP9IN7 

X 

190 

35 

RPTI 

X 

0 

3* *‘»T? 

, Jr 

0 

17 

XPT'3 

X 

.. 0 

38 KPT4 

X 

0 34 

ROTS 

X 

0 

40 

RPT6 

E 

0 

VI *»TT 

V 

“ 7 

4? 

ROTS 

X. 

■ ' 9 

41 KPT9 

X 

0 4«‘ 

' <PT 1.7' 

x 

0 

"45 


a 

"9 “ 

4 *.. ■ '.' nr 

. «■ 

1 

4 7 

'.9 

a 

? 

4 4 Nine 

m 

7 47 

NOEL 

X 

3 

53 

UOOL 

- 

? 

It MTU. 

3 

: . 0 

9? 

KP’FJ 

“ 

21 

S3 N42 

B 

0 54 

NH‘«HF 

X 

0 

55 

nnoF 

X 

159 

56 VV-i-lTF 


■) 

57 

nsvr 

' X. 

T 0 

>9 n c 3Knn 

*’* ~ 

? 57 

Nf-PTIfl 

X " 

l 

40 

NMSntJT 

a 

‘|4 

H* 

X. 

: - : 7 

42 

\’?t tl 

X. 

5 

si Nino 

X 

813 64 

NSP 

X 

13 

65 

NJ 

X 

1) 

Jt 


o 

» T 

: :\>s 

X 

0 

SB NT 

X 

371 64 

N9SET 

X 

0 

TO 

nvp 

* 

4 

»t nv.l 


l 

?■'.* 

nvv 

'■*• 

' * 2 

TV NVK 

X 

3 T4 

NVH 

X 

" 4 

' 75 

. _ 

X 

. » , _ „ 

0 

■ TV ■ 

■j * 

■0 

7 7 

tor? 

X 

T 

71 02 

X 

8 77 

M2 

X 

o 

80 

N? 

X 

to 

M i 

. "X: 

II 

i|J 

7 

■X- 

12 

»a p 

X 

13 84 

NO 

■ 

14 

85 

OH 

V 

15 

pv <?ni 

; ■ . 

n 

of 

N9T\P r ' 

8 

■ (I 

in NLtnr' 

X 

40 99 

NF90 

X 

271 

'90 

N** 

X 

" ? 

"l n?t 

E 

' y 

n ) 

N9r)T 

K : 

0 

43 MTR 

X 

2 94 

NJP494 

3 

2 

95 

NH 

X 

2 

«*• n r J?f*. 

S 


fT 


» 

0 

49 1 4,3 T 

X 

1 97 

141. 

X 

t 

100 

19043 

X 

25949 

!Tl *. » *rss 

8 

n 

143 

' X9.IT' 

B - 

0 

1 73 STM 

X 

3" 1 34‘ 

NFl |P _ 

x" ' 

“1 

135 

~ RSC-7 

a 

197 

M6 547140' 

X 

1 

117 

nrirT 

s: 

2 

t«8 NU01 

= 

9 109 

TVI».T 

ts 

0 

119 


t 

i) 

it t r"w 

X 

.. i 

IT 2 

HU'9 

5^ 

0 

Ml KPtVAp 

X 

2 114 

NONr* 

X 

0 

115 

1F9»CF 

X 

9 

u*> r-.tnif 

= 

. V 

It 7 

I “rial 

x 

" 9 

111 ' 101)72 

m " 

“3 119 

nr.«))r. 

X 

To 

no 

■ IFP 

' E 

3 ' ’ 

l?t-: *•$:?' iff 

a 

9 

127 

lisOifT 

t 

-1 

t»» 104S 

: x 

0 l?4 

NTFatv 

X 

8 

125 

Ncai.ts 

* 

T 

124 IS96F9 

X 


ITT 

f^feoT 

x ■ 

-1 

I’D ICNT«n 

8 

150 124 

fMATAO 

X 

2 

130 

NOFtM 

' e 

1 

lit VTTTrt 

X 

- n 

n? 

I9;«ir 

*• 

9 

131 i top 

• S 

3 134 

N9SI40 ' 

X — 

0 

115 

NP587I. 

s 

"3 

1?6 riW 

X 

v 0 

I i 7 

toST*l 

5 

0 

134 IPSTftw 

X 

0 119 

1045 

a 

0 

140 

NTCNTS 

V 

] 

14! <!);*. 03- 

X ' 

' 9 

11? 

«7*ir n 9 

a 

57 

141 NT'V'n. 

x- 

0 144 

NSOFRL 

e 

0 

145 

NST99L 

X 

0 # , 

H4 

X 

« 

w 


7 

** "7 

148 n«nc 

X 

‘ 0 149 

If 

X 

0 

160 

N19N3 

X 

3 

151 nsrs 

= 

. A 

l«* 

WV 

X 

6 

153 NPtJNr'T 

a 

3 154 

N r tOFt 

X 

9 

155 

NFLADO 

X 

0 

156 t = It 

8- 

.■ ■ t 

19? 

t »s 

X 

20 

158 INTTCN 

= 

0 159 

nsnarF 

B 

1 

160 

NSPTSr 

a 

0 

JM *|4yi« 

X 

II 

IV? 

vnovs* " 

X 

20 

1 63 

E 

' 0 Ift4 


x - * — 

- o 

165 


^x* 

".'ft ’ 

146 

3 

: ' -'t» 

157 


.- 

3 

149 

X- 

0 149 


x 

0 

170 


* 

0 

171 

8 

' 0 

n» 


*■’- 

7 

173 

X 

3 174 


X 

0 

175 


X 

0 

ns 

■ = 

fl 

17 7 


X 

3 

179 

.a 

" 0 I T9 


X 

0 

ISO 


X 

- n 

t»t 

X 

. 9 

|P? 


X 

.9 

1-93 

X 

9 184 


X 

3 

185 


X 

0 

m 

X 

• n 

19? 


= 

■3 

!5fi 

X 

0 187 


a 

0 

190 


X 

3 

ni 

9 

' ■ ' a 

tr? 


T 

" . .0 

149 - 

”* "0 144 

’ 

s 

” 0 

195 


if 


l«h 

s 

o 

17 7 


X 

■ 0 

t?4 

X 

3 199 


X 

0 

200 


X 

3 



^ftlGiNAL is 

L QUALrry; 


193 


IV IT I M. CONDITION? 



1 

FACT 

5 

9.2000= 

-0 2 

2 

ON? 

S 

0. 1039= 

01 

3 

ALC 

X 

3 .23 30=-02 

4 

THK 

X 

0.5000= 

03 

f5 

AJ 

a 

0.7783E 

33 

s 

MW |\ ft 

= 

*1.0 


7 

H51N1T 

3 

n.ioooe-06 

ft 

8MINS1 

X 

-3 . 130 OF 01 

9 

PINE 

3 

0.4349E 

01 

10 

3HOTN= 

X 

0.1751?- 

03 

u 

YT 

r- 

).T 


17 

HT 

3 

0.0 


13 

OEL° 

X 

o.53oor 01 

14 

f®5 

3 

0. 1900F- 

-03 

15 

H 

X 

0.5903F- 

04 

14 

MM Af 

s 

0.6109? 

31 

1 7 

M«fN 

3 

0.0 


18 

OOT= PS 

a 

0.3 

19 

PNT =®5 

X 

0.0 


20 

®TfM 

a 

0.9 


21 

pc 

s 

0.4O6 2F 

02 

27 

TF 

3 

0. 15 OOF 

03 

23 

TtMF 

a 

0.5300= 0? 

24 

TO 

B 

0.5000F 

02 

25 

tr nr 

X 

0.0 


26 

r 4 -u>j 

s 

0.4281F 

01 

77 

IJtNP' 

a 

0. 4006F 

04 

78 

R'INt V 

s 

0.1545lf~ 04 

29 

7 t 

X 

0.0 


30 

CPOINF 

a 

O.2490F 

00 

11 

r % 

x 

0.321 70 

02 

3» 

PTrnNt 

X 

0. 50.0BF 

05 

33 

RTC9N2 

X 

3.2252= 02 

34 

RTcrm 

X 

0.5334? 

07 

35 

T9 

X 

0. 1900F 

03 

1 *) 

P - f %f ) I M 

s 

3.6’600 

01 

37 

yiF 

X 

3. 10 OOF 

01 

38 

XMUINF 

* 

3.2827F-04 

39 

PFOOF 

X 

0.4982F- 

-01 

40 

TOAT10 

X 

0. 3853F 

01 

'.1 

*SMPT 

s 

0.0 


42 

VSUFT ' 

X 

0.0 


43 

“ rffl" 

a 

0.1 323F-01 

44 

S02 

X 

0.I414E 

01 

4$ 

h5 

X 

0.3 


46 

••cn'iF 

X 

3.0 


47 

TP nr,p 

X 

3.0 


48 

RFOGF 

X 

0.3 

49 


a 

0.3 


SO 

8SIN1V 

X 

0.5393=- 

04 

SI 

S'MMf'l 

= 

-9.v>37= 

76 

52 

yscmf 

X 

0. tnoo= 

01 

53 

Y5CALE 

X 

0.1000= 01 

54 


X 

0.9 


65 

® TC9N4 

X 

0. 1213F 

03 

" S6 

r’rn'i^ 

x 

0.74130 

03 

S7 

RTC0N6 

3 

0. 6426? 

03 

5ft 

TOF J NF 

X 

O.lftOOF 64 

59 F ACT?!) 

X 

0.1403F-02 

60 

r.4v»^p 

X 

0. 14 OOF 

01 

M 

rrm 

s 

0.0 


6? 

CON’V 

3 

1.7576= 

02 

63 


X 

0.3 

64 


= 

0.0 


f 5 

7 TP^r 

X 

0.1303=-04 

66 

tl 

Y*|r 

* r l *V/* 

s 

0 .2 Q 40 C 
0 . 1 1 630- 

02 

-TV 

67 
- 72 

08 

~SYtri78 

3 

“ 3 "“ 

0. moDF 
0.4920? 

01 

03 

68 

"73" 

'srcor.R - 

a 

s 

0.3 

"'o.2S4or'07 

39 

~ 7 A *Tt0Fx~ 

X 

K 

0.0 70 

0. 1500Ff~0T~--75 

C9NRH0 

B 

a 

0.0 

0.0 

.... 

76 

*r 

s 

0.0 


77 

CONI 

X 

1. 594 IF 

01 

78 

COM2 

s 

0 .330 i=-92 

79 

FACTP 

X 

3.7130= 

03 

80 

p/vr tm 

a 

0.?3t5=-02 

SI 

*r 

x 

0.0 


82 

VI 

3 

0. 0 


83 

crMpx 

a 

0.0 

R4 

r.nypv 

X 

0.3 


R5 

MNl NO 

X 

0.0 


Of- 


s 

0.0 


87 


X 

0.0 


88 

HHMIN 

c 

0.0 

89 


s 

0.0 


90 


X 

3.3 


01 


X 

0.0 


n? 


3 

0.0 


93 


X 

0.0 

94 


X 

0.0 


95 


X 

3.3 


o 6 

vmo 

s 

0.0 


Q 7 

MlNF 

X 

0. 10 OOF 

01 

98 

XPRINF 

X 

—0 .4305=-03 

99 

ppRC.nv 

X 

0.4365= 

05 

100 

P®RIH= 

=■ -9.18T9E 

02 

191 

s 

0.3 


10?- 

V5TAPT 

X 

3. 5000?' 

01 103 

DFPtT 

= 

3.1110? 03 104 

VFI.C5T 

X 

0.741 ?F 00 

195 

»rtr ST 

a 

9.1337F 

02 

106 

0»*f M 

x 

0 . 10 1 OF 

31 

107 

sc tmit 

3 

0. 1 000E 

01 

108 

SCTMIN 

X 

0.2300F 03 

109 

X*A 

a 

0.2897F 

0? 

tin 

X V H 

a 

0. 231 SF 

01 

111 


X 

0.3 


112 

X31A8T 

& 

0.5000= 

02 

in 

hast 

= 

3.3 

114 

0LXN1 

X 

0.9 

-05 

115 

R ST4 ® T 

a 

0. 1310? 

03 

116 

QP 

r 

0.1436? 

02 

117 

8 Tr]H y l 

a -9. 1000F 

01 118 

XM?nF~ 

X 

0.0 

119 

R9U At C 

X 

0.2805F 

120 


X 

0.0 


121 

MOOT 

X 

0.0 


l?? 

H3SOPT 

X 

0. 0 


123 

OR 

a 

0.1300F 01 

124 

CON 

a 

0.4000F 

00 

125 

TL A V 

e 

0.9133E-01 

126 

X V «M TO 

s 

0.11 sor 

-04 

127 

X m um2 

X 

3. 5600=- 

■05 

128 

XMIIP5 

X 

0.7300=-05 

129 

$CT 

X 

0. T 000= 

00 

170 

C4=9 

X 

0. 2303F-OJ 

131 

sn.tT 

s 

0. >»35r 

-01 

13? 

MR * ON 

X 

0.2913F- 

-Ot 

133 

PC Nr 

X 

"9 .5“ 

134 03MAX 

« 

0.0 


135 

= 1 I R SM 

x 

0.0 


136 

F|. TPST 

= 

0 . 3000 c 

01 

137 

Fl !OSA 

3 

0. 4000= 

m 

138 

EL1PS8 

a 

0.2500= 01 

139 

VH 

X 

0.9 


140 

VK 

a 

0.209JE 

01 

141 

V A 

s 

0.16106 

01 

142 

VO 

3 

0. 4 75 OF 

00. 

143 

C4?nsw 

a 

0.3300= 05 

144 

C4FA=T 

- 

o.iooo? 

.91 

145 

= 1 F 2 8W 

a 

0. 3333F 

05 

166 

T9A 

X 

0.1800? 

•34 

147 

TPH 

X 

3. 0 


1 48 

CVM 

a 

0.1303? 01 

149 

CVtl 

a 

ono48= 

00 

150 

rvT 

X 

0. 1303E 

01 

161 

^VP 

X 

0.47?sr-03 

15? 

CV8H0 

X 

0. 160?? 

0? 

153 

CVC.P 

= 

0.4186E 04 

154 

X8ACH5 

s 

0.3777E 

01 

155 

TS1NF 

X 

0.4656F 

93 

166 

» INF 

= 

o.tnsoF 

04 

167 

RHOtJfN 

= 

0. 7013? 

00 

158 

CPA 

X 

0.2430= 00 

159 

TPH 

X 

0.3446= 

01 

160 

r p 1 njr 

X 

0.?403F 

03 

161 

~n|ve 

s 

0 • 2F09 r 

34 

16? 

FFTOIN- 

3 

0. 1200=- 

0? 

1 S3 - 

“FTTOCH 

X 

T).3348F _ 0? 

164 FTT08T 

X 

0.3948= 

00 

145 

Or took 

X 

0.5556F 

00 

166 

ocrr n 

X 

0.472SF 

-03 

16 7 

OSFTOT 

X 

1.36 91? 

00 

168 

PSFTPN 

X 

0.4788E 02 

169 

psrmr 

a 

0.4944C 

-0? 

no 

P9FT-K 

a 

0.1402F 

0? 

171 

P^crn^ 

X 

0.8 7 ?OF 

02 

17? 

XMFACT 

X 

0. 1940F 

01 

173 

7*AX 

X 

0.3 

174 

pop me 

X 

0.1632= 

-01 

! 75 

F8T9KJ 

a 

0.2324? 

01 

' 176 

C°T6*J 

3 

0.41 84= 

01 

1 77 

VL 8 T 0N 

9 

3. 1488? 

01 

178 

VlftTOP 

a 9.1498? <52 

*79 


X 

0.0 


1 80 


s 

0.3 


l°l 


X 

0.0 


18? 


X 

3.0 


183 


X 

0.3 

134 


3 

0.0 


185 


X 

<5.3 


106 


X 

0.0 


18 7 


3 

0.0 


188 


X 

3.0 

189 


X 

3.0 


190 


X 

0.0 


m 


a 

0.3 ' 


102 


3 

3.. 3 


193 


X 

0.3 

I 04 


a 

75.0 


196 


a 

3.9 


l°6 


3 

0.3 


197 


X 

0.0 


198 


X 

0.3 

109 


X 

o.n 


200 


a 

9.0 




I 




Mnvnb mod do 

si"^ov<i ivmoim 



- X - v- X 


- X - X - 


- X - X - X - X 


X - X - X 


X-x-x-x- 



cilSI *o 

Coo 00 * C 

0 3 

£o*o 

10* 0 

o.lCO’o 

VO*U 

i0*C 

» 1 s 1 o*0 

>i *0 

sc*c- 

ItvU *o 

d2*U 

!«■ O 

XV&VC'*0 

01 *0 

Cu* 0 

1 fv v 0"0 


l l*C 

Si Si 0*0 

Vl *0 

X 1*0 

lOol c.*0 

SI *0 

V 1 * o 

■i.vl 1 *c 

ul *0 

L 1 *0 

l c lo l *o 

*o 

Ol *0 

s v il 1 'u 

WO 

WO 

i sisl *o 

Vi *C 

x£*oi 

L s -.s 1 *o 

Vi *e 

sc * 0 

t n 1 r. I * U 

at *C 

W0 . 

ic >« l *0 

ox “ 0 

Oc *0 

. 1 ^ 1 c "o 

u’U 

1 X * O 

i c LiZ'd 

V«.*0 

C o * U 

OtVt*u 

SI ‘L 

Si*C 

bSiWC 

XX*0 

U‘il 

xcwo 

0S*O 

OX * C 

p oi do *0 

cS *0 

1 V* 0 

tl iCi "0 
I 3 

X - A - 

X - A - X - 

X - X - 



■ •••■• • - 

30* jV 

• • 

• bool A *** 

3 tvj 


tujl A 




***XOjbAllN aboN’ ' * 


buj’ X 


CuiJVJ 

1 iv jx 
0 J'j 'C A 


MJIx W llsOwX lo du OV a jiVnU.o>.uj yl>« JiiuX 



194 


195 


f " * nt 

'Th» pr-1 [uc-|<t on A 1 '^POMO ARY - <Tr CION VAR I ANT 
CMrr< rASF,TM3 0 to*’Al Sip FP SON! C. c l TJ Wt TH PR = SS'/RF GRADIENT 


oFFFRFNCf F\T.U!SV-'T 


rNr.LisH-r n 


t ENG1 H 

o.i 

"VEt ‘Vf TV...'. . .. 

0.1 

n=v<; >rv 

_ 1 . ’ 

TF*>1>1. -tUllOF.. .. 

0. 9 

FNTMI ov ..... . .— 

0.1 

FR07 .S 0 FC. U F AT 

9.3 

VtSOS ITV 

0.1 

ST - V - v - f - » - 
tnfv. o'JF'J^UPF 
1.1 

locai. smofioN 

1. > 

Xt/L° r F 

' 0.75767F 0! 

-x-x-x-x- 


• FT 

p.n?onr-oi 

.ft /S-.....T.' 

O.VIIV-IF OV 
.LS«/FT’. .. . 

<*. n c JJ r -nv 

• RANK T*|F... . 
0.1 TO r OF ov 

O.V 30 22 F 00 
.^tu/lhu-p. . 

o.ivccif oo 
.L°v/FT-S .. . 
O.?R?f 5 F- 0 V 
V - X v - V 

.!><;= 

O.V 3 V c VF Ot 

MACH no. 

0 . 1 R 1 V 1 F 01 

OXl/l.RFF 

0.0 

X - X - X - X - 


.IN M CM 

0.15RVAF on 0.V021VF-0? 0.V023VE 30 

■ . n. &• ...nr.^ ;m/s. . .. .v. - ; .'cm/s. 7 ;v..“ 

0.0 0.12207F OV 0.12207F 36 

• N. A .*0/13 r./FF 

-nio " ’6.2B15V r '-0? 0.2935VF-05 

• N • A# ....... .KFLVIN..... . N. A. ....... 

0.0 O.IOOOOF 3 V 0 .0 

. N . A . ....... . Xj/TTii. i. .. « N . A « ....... 

0.0 0.10903E 01 0.3 

•N. A. ....... • K J/KG*K. . • • .N. A.. ...... 

“ 0.0 O.IOOVZF OI 0.3 

. N. A NT-S/M? POISF 

0.0 0.V235OF-0V 0 . V 2159E— 33 

“ X -~X" ~V - X - ST X y - X - X'- Tf - x - X - 

.OS! NT / *1? TORR 

0. 302 02E-01 0.29025F 03 0.15619F 01 

OPOXl ILRF/FT31" MAX. H2 CflNCl MIX FFF.lFTAf 
-0.1R7BRF 02 0.0 0.0 

FPS1L0N OXIMtN/LRFF 

o. i on oof -03 o:» 

X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-V-X- 

N- N* BASSES 

- q j) • 2 


X - X - 
P» INT 
1 


O.BO’OS 

0.10300 

0.10000 

0. 297R V 

0.10000 

1. 10QO0 

0.27271 

: o.ioooo 

0. 10C00 

0.25760 

0.19001 

3. 10000 

1.2VM’ 

o. iooio 

i. ncoo 

' 0.22 ,1 7 

0.10000 

o. lonoo 

0.21212 

C. 10010 

0. 10C00 

0. I960 7 

o.mco 

0. ir.010 

"O.HI” 

0.11001 

o. incoo 

0. 16W 7 

0 . 10001 

0 . 1 1000 

0 . 15151 

0.10131 

3 . irooo 

0.11616 

0.19901 

o. mom 

0. 17121 

0. Aor .09 

o. T’q-ifl 

0.116)6 

3 • 1 Q 563 

0 . C c 6 6 6 

0.1* l n l 

0.09696 

0.107 36 

0.37576 

0.08P5V 

0.90 066 

0.060«- 1 

0.07511 

0.37501 

0.0V6V6 

0.95926 

0. 35025 

o.oxon 

o.ovno 

0 . OV 130 

0.01515 

0.921.60 

0.12163 


OF POOR QUALITY 


3.11236 
3.11236 
0.11236 
0.11236 
3.11236 
0.11236 
0. tl236 
3.11236 
3. 11236 
0.11236 
3.11216 
"0. 11216 
3.11162 
3.06317 
" 0 . 0 VI 20 
3.02729 
0.02078 
.1.01336 
1.00503 
0.00053 
“O.OOOOO 


IJ 2 /UREF 

0.11236 

0.11236 

0.11236 “ 

0.11236 

0.112X6 

0.11236 

0.11236 

0.11236 

0.11236 

0.11236 

0.11236 

0.11236 

0.11162 

0.06317 

0 .OV 120 

0.02729 

0.02078 

0. 31336 " 

0.00503 

0.00053 

O.OOOOO ' 


0.00010 o.tsis? 


0.00000 0.15152 


196 




I 





* 


■' 1 


1 /Torp 

F l 



n. 3 'i 3 -T 

rt.02S*T 

0 .r» 7 SP 7 

n.?nrr r 

’ 0 , r *?*^T 

0 . 1 7C 17 

1.?T?n 

7 # 5 ?S «7 

0 . 1 ? c ^ 7 


0.0 ?**? 

3 . VS* 7 

0. 2i-»v2 

0, - * 7 **? 

0. 0 7 Sfl 7 

0 .? 27 ? * 

0 ,l ?S<* 7 

1. VS *7 

0. 21?! ’ 

0 ,^? c: » 7 

0,07^0 7 

C. I'-'-- 7 

O . r* 7 «: 1 7 

1 . 07 O '* 7 

0. 

o.i^sn r 

o,o7*p f 

o. 1 S*f 7 

7 

. 0 . ) 7 S 07 

<J.l 5 | 5 l 


0 , 07^°7 

• o. P> 5 * 

n . ) > *;o t 

0 . C > f 07 

3 . I?1 ’! 

0 • ''? r *>n 

0,07^39 

0. 

1.0V 14 

1. )?/ OS 

o.r" 

o. ) *rs r » 

). T*0 4 «! 

7 . 7 7 r > ’ 

1 . 0417 * 

0 . V. 1 rr » 

7 - 1 

0 , r<? o ■»•■> 

O.OS«?0 

0. .KSfcS 

0 . 1 7 7 '1 7 

0 • C 7 7 0 7 

3 .rni 7 

0 .. 1**716 

l.'* **716 

0.1151 5 


0 # r'i a «^4 

o. no" o 7 

0. 1 Opl* 7 

i. jor.oo 

F 0 

o.mcn 

o.isis? 



' *S f A T fy 

0. 3 i»"> ’’ 

0 ,^0010 

0.0)001 


o . r o no ^ 

(\r^C n o 

o . ? 7 ’ M 

■l.^OO^O 

0 , r ocio 

1 . 2775 * 

0. 

O.o.Ooo*) 

0. 

0,00 coo 

0 , rn 000 

0.7 >7 > » 

1 

1.00001 

< 7 . 7171 ? 

•0 ,0?T0^ 

1.OO00O 

0 . l'*V> 7 

0*00^00 

0 • or *C 10 

7 . 1 <U-” 

0 ,00000 

0.00000 

0 . 1 7 

O.nooOO 

o.cnooo 

3. isr,i 

0 .oor-'.o 

I.'MOOI 

0. I’t*' 

o.o^^oc 

0, ^c^oo 

0 . 171 M 

0, n OOOfl 

o.r^o^o 

0. JO*.'*. 

1/noio 

o. r^oro 

0.0 O M 

o.orroo 

n.cas'n 

3 . 37 ")/', 

!>.oono 


O.oon 

0 , ^ *'0*0 

0. 00 oio 

3 .'*' 7 S'.? 

0,00010 

0, 11" 10 

0 . 1 ? ” 7 3 

o.o^oo > 

i.rooo > 

n .r» | «* j c 

0,000 >o 

i . ( r C'lO 

3 . 7 1 1 -1 

1,0 1 10.1 

i.pir lo 

r 3 

0.00000 

o.ms? 


e 1 


F 3 


OF ^OOR QUALU-X 


1 


C"F/CPFRFF 


F l 


0. 1(7000 

o.iooon 



3.1330<7 

0.10000 



3.13030 

0.10030 



3. 10300 

0. tooco 



3. 10000 

0.10010 



3.10000 

0.10030 



0. 1 0000 

0.10000 



3.10303 

0. 1O000 



3. 10103 

0.13010 



3.13033 

0. 10000 



3.10030 

0.1 7003 



3.10 30.3 

o.mao 



3.10303 

0.13300 



0.10000 

0.10000 



7.1 7000 

0.10 730 



3. 10003 

0. 10(703 



3. 13070 

0. 10000 



0.10003 

0.10000 



3.10000 

0.10030 



3. 17000 

0. 10013 



0. | 7003 

0.10030 



0. 77000 

0.1315? 




HinT/HiFF 

E 0 


3.00000 

0.00070 


• 

0.07000 

0.01011 

0 . 


0.00000 

o.o-i no 



3.30003 

0.37000 



0.00030 

0.01111 



' 3.03000 

o. oono 



3.3O03O 

1.11039 



0.000.33 

O.OinpQ 



3.00000 

0.00300 



0.00000 

0.11000 



0.00070 

0.00070 



0.00000 

ri.nmo 



0.00000 

0.01113 



0. OOOOO 

0.03003 



0.00.733 

0.00010 



3.00000 

0.11011 



0.00000 

0.00000 



3.00000 

o. or 0 70 



o.oncoo 

0.00000 



0.00000 

1.00171 



0.00000 

0.00103 




3.30000 o.i*)*? 


3nn/®tnor* 



«■ l 

0.30303 0.00*38 0.®9P38 

. 0.2P7 1 * s '0.®<»'B38''0.®9B3«r 

a.!???* o.c»83« n.®®ois 

0.2S7"> 0. c< >»lft 0.0‘>Pt8 

0.2424? *' 0. coots 0.®®°38 

0 .2 ? 7? 7 0.®®338 O.OOe?* 

0.2121? 0.00338 0.4®839 

0.144® 7 0.®'>P3P 0.C9P38 

o.irtjo? o. c °pto o. costs 

0.16447 0.COP38 0.CCF.38 

O.IMM - "0.o*M»38 O.CCP 30 

0 • 1 36 1 4 O.ooptfl 0.°®S38 

0.12171 0.®®753 C. r <5753 

0.105*5' 0.08045 0. OP 04 5 

0. 000-71 0 .343 n 1 0. °4P0® 

0.07575 0.41840 0.MF50 

0.0407- 1 0.44376 0.44306 

0. 0454 5 0.34013 0. 34°1 3 

0.030’0 - 0. 70*64 n. 20544 

0.01515 '0.26751 0.76751 

O.COOOO -0.25826 0.25P77, 

| f 0 0.00000 0 ."15152” 


PLFM.N? mss.frac 8 


0.76700 
0.74700 
0.76700 
0 .76700 
0.76 700 
0.76700 
0.76700 
0.76700 
. 0.74700 
0.76700 
0.76700 
“0.75700 
0.76700 
0. 767'’0 
0.76700 
0.76700 
3.76700 
0.76700 
0.7 6700 
0.76703 
0.76700 


0.^6700 
0.76700 
0.76 700 
0.76700 
0.76700 
0.767C0 
3.7670C 
0.76 700 
0.76700 
0.76700 
0.76700 

0.74 760 
0.76700 
0.76700 
0. 7.4 700 
0.76 700 
0.747OC 
0.74700 
0.77 700 
0.^6700 
0. 76700 


0.00000 0.1415? 


0F POOR QUAUT* 



3.00000 0.15152 




c c 


40 

CD 





F 1 
o. ?n** ^ i 


ET* .‘••l/'VJRPF F 1 


M’l/MtJRFF 

e 1 


n # -n<n7 

o .cm 7 

0.01037 

3.01917 




0.07077 

O.01C17 

1.01037 

0.0*917 



0. ?7?*1 

0 .0701 7 

0.0 1*17 

3. 03O17 

0.01917 



3.?47* * 

0,*>3*n7 

'.1.0*037 

3.03017 

0.01917 



o.?-.* 4 * 

3.11017 

0.01017 

1.03937 

0.01917 



2?T’ 7 

o.r i 01 7 

0. 7 

0.01017 

0.01937 



0.21?! 7 

0.91*77 

n.n *097 

1.01037 

0.0*917 



0. 1560 7 

0.07917 

0.019*7 

0.03017 

0.019*7 



n . | -* i «' •* 

0.***.17 

0. 13*17 

1.01017 

0.130*7 



0. l'.< , 7 

'I.11M 7 

n . * 1 % * 7 

1.03017 

0.0*937 



7. is t *: l 

0.0 J917 

*). 11^7 7 

1.01017 

0.0*917 



o. i **■ >s 

O.^^ni 7 

0.01*17 

3.0 JOJ7 

0.0*917 



o . i ? i * i 

o.n'j'v.o 

0. AO 

0. 0 7 o/,0 

0.0*940 



•>. n'o* 

*» .v>n^s 

1.0 1901) 

D.0V*°5 

O.O^gs 



0/.?V! 

0.14*77 

0.04477 

3.36477 

0.14477 



0.1)75?'. 

0.70M1 

O.OPFf.3 

3.05MH 

0.0545P 



9. 9**''*' l 

i.i'ih 

0. *7'. 16 

3. 37115 

3.07 1 It 



0.04>:'.5 

0.10777 

0. c° ’O'* 

3.00131 

0.0930* 



/} *1 1 

.1.79*1 t 

0 . O'* * 1 1 

3. 30? 11 

0.09711 



0. *1*> * 

; 0 . 1 0 7 * 9 

0 # r : 7*10 

' 1.00790 

9. 90793 



onvn 1 

0 . tor** 

1. M**l 

0.10330 

0.10900 



F 0 

o.*oon 

0. l r >15? 

3.00000 

0.1515? 





cr*. po 1N*TL NO. F t 


eee.srHMinr 

NO. p 1 


* l 
n . 1 ) 1 M 

0 . 1 C 3 C 9 

1 . 1**10 

0. 10030 

0. 10000 


9 

r. *> 

0. 10070 

•1. I'lOOO 

0. 1*030 

0.10000 



o.?**»i 

1 . | 

0. 100)7 

3.10000 

0.10000 

0 . 


0. 757*4 

0. 1 1007 

0 . n*oo 

3.10000 

3.10000 



0 . ?c? 4 * 

0 . i*c*i 

0. If' ^09 

0 . ionio 

0.10900 



0. ?*72 f 

n. nnvi 

•3. 1*001 

1.13.300 

0.10000 



0 . 71?' » 

0 . 1 ?i*o 

3. 1*000 

3.10003 

0 . 10100’ 



f». » *U»9 7 

^ • 1 ^ 9 

0 . 1° 900 

0.10030 

0.10000 



0. l«l»7 

T.lV'i 

•i. 1*01* 

3. 10030 

0.10300 



o # 1 *,**. ▼ 

.3. 1 9-*»?9 

0 . | n or A 

0. 10000 

0.10030 



0 . 1 * 1*1 

0.1*0' 1 

0,1 

3.13300 

0.10000 



o. nn* 

3. 1 nn 

0 . 

3. 10003 

0.10013 



0 . 1 * 1*1 

o.nn 

0 . nnoo 

0.13000 

0 . ! 0010 



0. 1 l* 1 li 

0 # » OP'' 1 

1. 1 7000 

3. t 0000 

0.H013 




0. 100.-7 

0.1 'CIO 

0. 10000 

3. 10000* 



0. 97**6 

0.1 ono i 

n. noon 

3.10000 

0.10000 



0.04051 

o. irooo 

1. 10003 

0.10010 

0.10100 



'♦ i 

0. 1*''**} 

o.ncoo 

3. 13000 

0.10000 




3. ioc«o 

n 9 1 *oof> 

1.13000 

0 . 10 300 



0.7111.5 

0. 100*1 

1. 1 H'OO 

0.10000 

0.10000 



f*. ))V > 

9 . 1 ■'r-r *3 

0. 10**1 

0.10000 

0.10010 



€ * 

0.10311 

0.1*15? 

o.onooo 

0.1515? 



S< !'! 

pr irTT iM oistr tour ion irr/21 





1 

0.4V.33F-9? ? O.43417P-0? 







199 



C n m i r 

- THOPf-OfwetJSirWAl. 'Vnij'.'O AR v'WGfPN VARIANT 
rnccn r*5F,TW0 nfir-moNAI Sl'PFRSONIC Flfiv WITH P8.FSSUR 5 OR. API FNT 
o-jprijrnr*- * e N5l. I St 4 - FT FNGU SH-I N M-K-S C- 







l CM r ,TM. 

.FT 


.M 

. n m . , , 

0.1 

0. 1 32 09 c - 01 

0 . 1 58*0F 00 

0.*O23*F-02 

0.*323*F 93 

3.1 

• FT/S 

0.*91*R r 0* 

• N « A * ••• «•• • 

n.o 

3.122070 9* 

.CM/S....... 

0 • l 2207 c 35 

n F N 5 1 T v 

.L n, </FT1. .. . 

• N • * • ••••••• 

• K0/M3 

. G/r,r 

3. 1 

9.1751?r.„ 3 

0.0 

0.2905*F-02 

0.2905*5-35 

TFWOC-Mtiirf. . . . 

. 9 a 'v in c • • • . 

•NtA******** 

.KFI.VTN 

• A > • • • « • • • 

0.1 

9.1 50005 0* 

0.0 

0.10900F 3* 

3.3 

F^THil PY t 

0.' 

• MTU/I.*'*. . 

T.A’ > 0 2?. r OT 

• N • A • • • • ••• • 
0.0 

0.100095 31 

0,0 

FPf*7 ,**er. ,HT AT 

# nri»/ ( km- 3. . 

•N*A« 

. K J/KG-K. ... 

• N • A « •••«••• 

1.1 

■9.2*00 1= 09 

0.0 

0 . 100A2F 01 

0.3 

VISC'KITV 

.1 0’»/ft_5.. . 

«N*A«*»«t*** 

. NT-5/MZ. ... 

.POISF 

0.1 

0 • 29?65 c - J* 

0.0 

0.*2359c-0* 

0. *20595-93 

x - x 


x - ■ x - x - x"~ - 

X - X - X - 

P=~x - _ y -~r—= - " 

inc-tl 091:550* e 

.•'5F 

.PSl 

.NT/M2 

.TIJ89 

1.7 

1.7*1 *JF 01 

0.153765-01 

0.10602P 03 

0.795155 33 

10CAI 5PUITtON 

m * r it vjn. 

tlPDXl IU1F/FT1T MAX. H2 CONC. 

MIX FFF. 1 FT A 1" ' 

9.1 

0.*1153P 01 

-0.395205 01 

3.0 

0.3 

tl/URFF 

n<t/LP e F 

FPSILDN 

0XIMIN/1.RFF 


0.?>790 c *02 

0. 131 71 F <10 

0.10300F-01 

o.i*ooiF-or 


- t - t - y - t 

-X-X-X-X- 

X-X-X-X- 

X-X-X-X 

-X-X-X-X-X-X-X-X-X-X-X- 


N- N» PAS5 C S 
¥5 58 *67 


!ll/U9F c 


0.39393 

0.10296 

9.11295 

0 . 287° 9 

0; 10292 

3. 10200 

0 . 27773 " 

0 . 1329 *. 

0 . 10279 

0.25759 : 

• 9.10 259 

■ 1.10251 

0 . 7 * 2*7 

0.10713 

0.10199 

0.22777 '• 

0.10175 

0 . t 3 103 

0 . 21*12 

9 . 097*5 

0.39915 

0 . l '> 6 * 7 

0.99709 

0.79 669 

0 . 1*1 *2 

0.39706 

0.09233 

0 . 1 *. 6 n 7 

0.09791 

0. 09 791 

0 . 15|51 

0.09190 

O.OfllBR 

0.13616 

0.07592 

3.07511 

0. 12121 

0 . 065*0 

0 . 065 , 1 * 

9 . 116 16 

9. .06391 

0 . 3*091 

0 . 070*1 

0.15329 

0.05172 

0.07576 

0 . 0*519 

0 . 0*520 

0.06961 

0 . 0*696 

0.03697 

* 0 . 0 * 5*5 

0.02927 

0 . 079*3 

0.11310 

0.01921 

0 . 1192 * 

0.01515 

0 . 015-59 

0.01595 

0 . 000** -9 

0.09009 

■ 0.00090 

e 9 

0.03033 

0 . 1 * 15 ? 


ORIGINAL PAGE IS 


3.99227 

3 . 9*698 

ar.vmr 

1.87526 

3 . 934*5 

" 9 . 78682 ' 
3.72925 
3.65938 
0 . 5801 * 
3 . 99*99 
9. *1195 
* 3.33299 
3.26260 
0 . 200*5 
* 9 . 1 * 67 * 
3.10152 
3 . 36*63 
* 9.33596 
3.01562 
3.30376 
' 3.00000 


0 . 981*7 
0 . 9*673 
0 . 911*7 
0 . 973 R ? 
0 . 3319 ? 
0.79296 
0 . 72*10 
0 . 65*79 
0.57603 
0 .*9258 
0.91072 
0 . 3332 * 
0.26358 
0.20187 
0 . 1*932 
0.10295 
0.06575 
0 . 0366 * 
0 . 9-1593 
0 . 0038 * 
0 . 09000 * 


9.00000 0.15152 


200 




T/TOC.: 


o l 

CPF/rPrpFF 

F 1 



7.r"i'.7 

7.77K.7 


0.10700 

0. 13003 



7.2"T r 7 

7.<7?f.T 

3.0? IsO 


0. 17000 

0.10330 



o.? 77 ” 

o.'vts 7 

7.7717'’ 


3. 1307C 

0.13330 



0.?5?*3 

7.0' |"7 

3. 77710 


7.17003 

o.iooro 



0. ?**n 1 

0.'V?'>7 

0. 0??Fq 


0.10377 

0.13070 



1.?27?7 

0 . T> /, *> •> 

o. 


0.17000 

0.10070 



7.?1 7 ! ? 

D.n ?•»».« 

0.0?^n? 


3.10700 

0.13370 



C*. 1 0A ~ T 

0. 1 

3. 3 7 7?0 


0. 17070 

0.13700 



i . i j i • ’ 

1 «; 4 l 

1." V 12 


3. moon 

n. i nnjo 



o . ;*,<•' ■» 

t. n *.;>?» 

7.7'.? I ’S 


7.17070 

o. lonno 



7. l*i* *- l 

7 

o. 0=107 0 


0.10000 

0.10700 



o. ; isv- 

C.1S7-H 

0 . 0 'o 70 ^ 


7.17070 

0.17300 



c. i 7 i » t 

D.TAc.^7 

O.OS'O 


0.17000 

0.13770 



7. IIS'K 

?.r»7-.3 

0 # T 7 ? * * 


7.17070 

3.1 1773 



0. • I 

• ^ . ** 7*>^ *» 

0 . r?o«n 


7.10070 

0.1 ’313 



7. )7S ’S 

1 j.mc-tT 



3. 1OCO0 

0. 17303 



3. ' • •> 1 

0. *» 

0. r *-‘» '40 7 


0. 177-10 

7.1 3770 



" s 

_ 7.70SI 1 

7. 3*1*30 


3.17000 

0. 10.300 



n.M3n 

; o 

0 . 0° 7?f» 


3.10000 

0. 10000 



0.'. IV S 

0. JC«***» 

) . 


0. 1 3737 

7.13330 



^ . r* *n *• ' 

*»<r *> 

O . ! ) 00 3 


7.10300 

3.13.730 


• 

F O 

3*0nGn° 

7. IS IS? 


O.noooo 

0.151*2 



. 


‘•st M/mrs 

? 7 

MT'lT/IHFr 

= 0 


c f 

•7. 1C7 7 1 

o vn 

3 . "*O0PO 


0.03330 

0.00730 



0. 2 r 7 c ° 

• o 

0 .03003 


7.07000 

C. 77030 

# . 


0. 7 / 7 ' 7 

•7 . C ' 7'7 

7. irs.sn 


0.00000 

C .30770 



?.?5T^S 

O.^rnr i 

l.r iooo 


7.00003 

0.77300 



n # ■»<. ?/.> 

O.rAroo 

a.r.smo 


3.77000 

3.07730 



3.227’7 

n.'^^o i 

n.o^ri'O 


7.77700 

0.03773 



7. 7 I?’ 7 

0 . 00 0** 0 

o."'(r o 


3.7070.7 

0.73770 



l i#,*' 7 


o.^nnoo 


7.70000 

0.30370 



MTV 

. 1. '*#*•' V) 

•3.0 ’I )"C 


0. 70703 

0.31707 



7 . I'.S' » 

J.777'7 

'’.77777 


7.07730 

0.73300 



". ! *» 1 ^ 1 

. ‘j.nnn-t') 

7.0 ’007 


7.00000 

0.07030 



7. 1 V,' *i 

t o . r. 3 ** in 

n.ooroo 


7.73300 

3.33370 



7 • 171'! 

n # ?nn'i') 

0. ?3?33 


3.07000 

0.33070 



o. ns'«. 

0 • ? 3 0 10 

7.npf*o 


3.00700 

0.330)0 



7.0->J •’ | 

o.oo ron 

7.07070 


3.07700 

0.33773 



T.07S7S 

n 

3.03003 


7.73030 

0.70703 



7. OS ’'• l 

f} m r TOO** 

o .03^00 


3. 300,70 

o.nonoi 



1. ' «s .s 

0 . 0 ^ ' rt 0 

o. ** rnq 


7.00307 

0.7003.7 



^•0 ’■*’ *» 


H. n.>no») 


7.37070 

0.3077.7 



1 s t «; 

0 . ^ 0 0 0 3 

3. on r 33 


3.00707 

7.00330 

* 


o. nv ) 

0 . ^ O'* o 

3.033^0 


3.00700 

0.. 70300 



F 0 

o.ronn 

0 . ISIS? 


0.77070 

0.15152 




ORIGINAL PAGE 
OF POOR QUALITY 


) 


5 1 

0.2*>7*"> 
0.272? 3 

9.25?45 

”0.24?'.’ 

o.227?7 

n.2i?i ? 

0. 1*>49 7 

9 . 1M"’ 

n. 1454 7 

1. 1515J 
0. 1363*. 
«. 121? I 
0. 104 '6 
0.0'-. I' I 
0.07S?4 

0.059*1 

0.04545 
0.030V) 
"0.0151 S 

a.ooo: ) 


0.6150? 

0.5146" 

0.63060 

0.40042 

"0.56107 

• 0.54043 
0. 50000 
"0.43M 7 
0.3.4 *>47 
. 0.33"0( 

0.26245 
0.22770 
. 0.?0l4*l 
', 0.16200 
i 0. t66' 1 7 
‘•0.14546 
: 0. 14671 
; 0. |40?l 
*0.13466 
"0. 13249 
,0.1319* 


4Hl'/6Hf'4 = F 

0.6 14<>3 
07*1 360 
0.60414 
0.40711 
0.47554 
0.44200 

0.49100 

0.42942 

0.36520 

4.34 m 

0^26230' 

0.22774 

0.20174 

o. ib?o* 

0. t67O0 

0.15444 

0. 14673 
0.14022 
0.13*=66 
0. 13250 
0. t3 104 


rt.FH.H2 9»s.FPAr f n 

0.00000 0.00000 

O.OCOOO'O.Onooo - - - — - 

0.30000 0.00030 

o.ooooo o.ooooo 
b.noooo o.ooooo ‘ 

0.09000 0.00090 
0.00000 0.03000 
O.OOOOO 0.00090 
0.09000 0.90690 
0.00000 0.00900 

'0.00000 0.00099 •• 

0.00000 o.ono'-o 

3.00000 0.01000 
'3.00000 0.00000 
0.00000 0.00000 
0.00000 0.00030 
3.00000 0.00000 
3.00000 0.00000 

o.ooooo o.onono 

0.00000 0.900 JO 
C. 00090 3.09000 


0. 33393 
0 . 2 ° 7 " 4 
0. 27271 
0 . 2575*1 
0 . 242*7 
0.22727 
0.2121? 
0 . 195*7 
0. 1 3l*> 7 
0 . 1564 7 
0 . 151*1 
0. 1163 s 
0. 12121 
0 . 1 043 4 
0.0936 l 

0.07575 

0.06051 

0.045*5 

0.03031 

0.01415 

0.000:0 


0.00000 0.15152 

FL C,, .N? MA5.rRA_C f 0_ 

0.76700 0.77.70(1 
'0.76790 9. 76700 

'" 0.76730 0.76700 
-0.76700 0.74700 
0.76700 0.76790 
1 0 « 76 730 3.76 710 
0.76700 0.76 700 
0.76790. 0.76703 
<0.76700 0.76 703' 

•0.75700 0.76700 
'O. 76700 0.76700 
*0.76730 0.76790 
: 0.76700 0.76700 
.0.76790 0.76700 
•0.76700 0. 76700 
0.76790 0.76700 
0.76700 0.76700 
'0.76730 0.76700 
’0.76700 0.7C701 
.0.76700 0.76 70(1 
'"0.74790 0.73700 


0.00000 0.15152 


ELFH.O? H4S.FRAC E 0 


3.23300 0 
_3. 23300 0 
0.2330b 6 
0.23300 0 
0.23300 0 
"3.23300 0 
0.23300 0 
0.23300 0 
0.23300 0 
3.23300 0 
0.23300 0 
"3.23300 0 
0.23300 0 
0.21300 0 
"3.2 3300" 0 
3.23300 0 
0.23300 0 
"3.23300 0 
0.23300 0 
3.23300 0 
"3723300 0 


.23310 

.23300 

.21300' 

.23300 

.23310 

.23300" 

.23300 

.23300 

.21300" 

.2330*3 

.23300 

.23330 

.23300 

.23300 

.23330 

.23300 

.23300 

.23390 

.27300 

.23300 

.21300 


0.90010 9.15142 


0.00000 0.15152 


ro 

o 


I 


202 



“KU/MtJR^c r“ | 

3.03369 0.03370 
3.33376 0.13381 
3.33398 0.93436 
3.39443 0.03450 
1.03534 0.93562" 

3.03705 0.03747 
3.34000 0.04053 

0.04454 0.04535 

3. .05060 0.05399 
1.05750 (1. 05763 
3.06442 0.06444 
0.370P8 0.07338 
3.07675 0.07674 

).-)<» 19 3 0. 09 10t * 

3 . 0°655 0.09654 
3.09049 0.09347 
“3.09376 0.09376 
3.09639 0.09639 
3.09934 0.19P34 

3.09957 0.099S7 

0.10000 0.10900 

0.03000 0.16162 

5«-5.5rM9|0T 90. P .1 

o.nooo o.nooo 

__ 0.10003 0.10003 

3.13000 o.nooo ■ "* • 

o. loono o.nooo 
3.10003 o.nooo 
3.1000.0 0.13100 

o.nooo o.nooo 

3.10300 0.10000 
-■ 3.10003 o.nooo 

3.ioooo o.nooo 

0.10000 0.10030 
3.10)00 0.10330 
0.10000 0.10000 
o.nooo o.nooo 

0.10000 0.13030 
o.nooo 0.10030 
o.nooo o.nooo 
D.13001 0.11930 
o.nooo o.nooo 

3.10003 o.nooo _ 

'3.13330 0.13000 ' 


3.00000 0.16152 


APPENDIX D 


SAMPLE OUTPUT FOR VIRTUAL SOURCE 
THREE-DIMENSIONAL FLOW CHECK CASE 


of poo: 


ro 

o 


ccc 

crcccc - r C c 

cccccccccctcc o 
covputatiogal* coo 
ccccc " _ ~tcc **ron^T!n~ *** 

CCCC ******000000003 * 

c.ctc *»********orioooonooo'» 

cccc * ***»*«**i«.***coonr.ooDO — 

cccc **********#****r.ui)ODO * 

cccc ********** poo **** 

■ — ' TCCC*** ******* 1 

cccc*** ***** 

cccc*®**** 

cccc***** 

*ct.cc** ccc 
**ccccc cccc 

*»**tcr.crcccccccccc 

*«****cccccccc cccccc 
******* ccccc.c ccc 

******* 

******* 

MiinpAmirv 

' •UHlO I jiVO 

i>!'i:iVi***» OiCJUJ 

'.or -**v**v nrcm 

-'I)!,***.v* *» 0000 

»• .» ******* POOP 

t.- ******* — rpirr — 

„ ******* ij'-fip 

)l «0l> • *»*«*«<'MiV‘| >**My y.i*W 

■ rt-'-.T ******00 MOMMY?! HKVW»K 

iti i.co* ******* MyyyyvMK mmmmmwm 

(Jt’iji;********* MF M MMMMHMM MFM 

********** MCM * VCV — ‘ 


— rr'np *;«*.'w*Ty* 

U.-PO ywM*MMw 

*< ‘Ii»1 >»*wy y.J*M 

*rn MMMMM3 MFI‘»Vi.v 

**** MyyyyvMK HMMMtfvyM 

****** mfm mmmmhmm mfm 

******** MCM — -yyn" - wpy — - 

********** v.|iu ft KHM * 

* *** » *****MftV vam**« 

• ******** **** ****** y\K*** 

**ee*y|t' ********** *,m{V««* 

**:*c m****»***««* ycy** 

— — KV-; tenets*** y?M 

y»M m*m 

uvy*wyy yyv*.*;*y 

My*«tn>M yvyeyyfj; - 


CCC 

cccccc~~ccc 

CCCCCCCCCCCCC 

com iwu««ccrc 

***CCCCC CCC 

**cccc 

♦cccc** 

»*cccc«»* “ — 

**cccc**»* 

♦cccc****** 

CCCC******* 

CCCC**'*®**®* 

CCCC ****** 

crcc ****** 

CCCC ****** CCC 

ccccc *»**r.ctc 

CCCCCCCCCCCCCCC 

CCCCCCCCCCCCCC 

CCCCCt**CCC 

. ******* 

* »*«»«* 
ri'ifjOfc'.* 

o.inororrof’o— - 

Oiripp. ip^up i poo 
POO.V.* **»♦**( I’iWJP 

'TOGO ****** ontT 

0000 ******* ooc 

OtiOO ******* f;P 

■ — COOT ' e»e***r'. '031' 
O ’aQ****ej* .jrjfl 
li'J* ****** 0000 

n****** occotj 

«***«»**(njlPOfw| 

*********, Hi, Mii'O 

********** — — 

******** 

******* 

****♦' — ■ 

*'* 


c x _ y D C - 

COMPUTATIONAL CCNTIMJU.y MFCHANICS 
TIIPCF-Ol VFMSinNAt BDA’CARY RFGION VARIANT ~ 


C OT C K CASr-.ToPr* 0|Mr‘«SlP'iAl RF Ac T I NU HOUM'AMV PFGIUN - VIP TO At VIl'PCC 


205 


t'p'ifii mrscK j »» t 


r'j^n: check case cdr three dimensional reacting boundary region flow 
r*2/3*/A>‘SY:;m. i« i TiT'EuuriiiR^. iirsr"cnnwrsTRYv.'"PRC5'i:E7 r cttnsidtred 

REPRESENTS ThANSVFRSF Its I N J r C T I ON '[ NTO A SUPERSONIC AIR STREAM 
CHARACTERISTIC Or iCPA«Jf:T FUEL I NJFCTl llN t SEE ROGERS NASA TND-611't, 

m i“A>,(V‘\.VsX TNii-tWA". 1 R71 TOL’ _ frxPEPI MIN T5L — 3'TUT)Y"'CF~7 hTS — PROBLEMS 

TURBULENCE F’0°FL EVPIOYEO IS DESCRIBED. IN USER’S MANUAL NASA f.ft , 

CAl.nit. Al !f-|S AFC- STWTE9 USING VIRTUAL SOURCE CONCEPT TO RFPLACC 
cnvPLF> vi'SP"iF..iECTinvprmi*nEiD; 

6 v.Vi-lNT. NDOFS r OR VAR I VUE l 


1 2 3 A 5 6 


6 NJN-I T. ‘lOt'FS FOP VAI'IAPLF 2 



1 2 3 A S fc 



3 N.IN-INT. NODES FOP. VAR IAHLF 8 


l l J 

. a NfiN-l |T, NODES FOR VARIAhCE V 





'l'»! r'tfii (TfKiTf f i :»\ s ' 


1 f(0 

* 

— r 

T 


3 

i) — r 

— IW~ 

S 

T 

4 KEYMTTT' 

X 

I !T7iTJ?lFGB 

X 

0 

• l, MOG 

= 

0 

7 

KHR5 

= 

0 8 

KPRINT 

3 

0 

9 NRSTRT 

X 

0 10 NV 

B 

0 

n nptt if 

= I 

l 

12 

•UNIT 

* 

0 13 

MC110R0 

= 

0 

16 NCLFH 

c 

100 15 NN 

X 

3 

1 -ISI or 

= 

66 

l f 

''MS 

= 

6 Id 

isiTAirr 

= 

r 

TT KCTF~ 

= 

’ 60 — 20 "WRIT 

3 

r3r • 

2! ^O,. 

= 

2 

22 

MC 

= 

a 23 

NB 

= 

A 

26 NPTEL 

3 

3 25 KIND 

3 

A 

2- K<ni.'*T 

. = 

l 

27 

N SK 1 P 

- 

60 20 

I PASS 

= 

1 

29 I RU N 

= 

0 30 NP 

S 

5 

3 1 

= 

7 

3«* 

I Sun 

— 

0 33 

NAiiC 

= 

0 

36 L PRINT 

= 

"tott jr mm 

3 


3i KPT? 

- 

0 

3/ 

KP T 3 

3 

0 38 

KPT6 

3 

0 

39 KPT 5 

X 

0 60 KPT6 

3 

0 

m Kf»r/ 

= 

0 

A? 

KPTfl 

= 

0 A3 

KPT9 

3 

0 

66 KPT 10 

= 

0 65 NEXP 

X 

0 

i ,F 

r 

4 

<•*7 

nr - 

S 

6 ^8 

NOllF 

3 

0 

65 NOEL 

3 

3 50 LC.TIT 

r 


si i i:l 

= 

0 

32 

KOOW 

S 

11 53 

MM2 

= 

0 

56 NHHALP 

3 

0 55 NOOF 

3 

150 

*»« no H ,'j/ 

= 

0 

5/ 

IASVcC 

= 

0 58 

NEIHNN 

S 

5 

59 NCPTA3 

= 

1 60 NMBLUJT 

= 

16 

o j s nt > *J p 

= 

0 

6 ? 

111 1 TL 

= 

> o.i n i Kn 

= 

313 

66 NSM 

3 

TO 65 MJ 

3 

0 

fcr NhHOSS 

= 

0 

A / 

NS 

S 

0 fen 

NI 

s 

1201 

69 N3SET 

3 

0 70 NVP 

3 

9 

7! NVU 

« 

1 

7» 

MW 

= 

2 73 

NVU 

s 

3 

76 NVH 

X 

6 75 

= 

0 

7t, •* 

a 

cr 

77“ 

H2IT - 

3 

7^“T<J 

n Z~ 

3 

0' 

79 R2 

S 

9 8ff 172 

V 

10" - • — 

a 1 A 

* 

1 1 

02 

l» 

S 

12 83 

H 

3 

13 

86 NO 

X 

16 65 (1H 

s 

15 

ft K. ("IT 

s 

u 

it 7 

MW 1 1PE 

•s 

0 88 

NL I NC 

= 

60 

89 NEMO 

= 

271 90 NVY 

3 

2 

9 l v i 7 

= 

2 


MOO ? 

- 

0 V 3 

NTK 

= 

2' 

56 "NLTPARA 

= 

' 2~"95 NFi 

3 

2 

ur ci 

= 

3 

97 

• 

= 

0 08 

1 MAT 

3 

1 

99 I BL 

3 

l 100 IREND 

3 

27236 

ni nppbss 

a * 


0 

102 

KMUT 

3 

0 103 

MTH 

x 

0 

106 NFL IP 

X 

l 105 K SC T 

S 

107 

1J* 



= 

l i ad Nug3 

= 

0 109 I V I R1 

= 

mo 

= 


111 t ’.TAX 

s 

2 

1 12 

KALLMO 

= 

0 113 

KPLVAP 

3 

2 

116 NCN9 

= 

0 115 1 FORCE 

3 

0 

11! UJIfj.1T 

= 

0 

11 7 

1 WIG 1 

3 

-3 118 

I nun? 

* 

-3 

119 NGBliu 

= 

-3 120 1F3 

= 

1 

It! • * 1 * 




I t T 

= 

A 1 23 

iGiS 

3 

1 

126 TC0FR1V 

3 

‘5 125 NCuLl5 

3 


i?. isp> : tn 

s 

0 

12/ 

itmfrt 

= 

-1 128 

I r N INO 

3 

150 

129 1 MAT AB 

3 

2 130 NGETH 

X 

-2 

131 • 

= 

u 

132 

I •» H-l 1 T 

« 

0 1.33 

i tup 

S 

0 

136 NPS1BU 

3 

0 135 NPSHOL 

8 

0 

13' V.. \V 

a 

0 

1 J r 

l w sr AT. 

= 

cr i3o 

LP ST AM 

3 

cr 

1'39 “TGAS 

3 

" rTAoirrcNn: 

S 

I 

1.: '.ALlj.3 

s 

0 

16? 

» .Ml 1 pa 

S 

51 1 A3 

NTDFUL 

3 

0 

166. NSOEBL 

3 

0 165 NS2DBI 

3 ' 

0 

16< } 

s 

0 

167 


3 

o inn 

NONC 

3 

0 

169 IT 

* 

3 150 NIID.J11 

3 

67 

IjI U.62X 

= 

1 5 

1*72 

NSCY 

= 

15 153 

iNn’Ui\CH 

= 

0 

156" NELOFL" 

= 

0 155 7/ELTSDD- 

3 ' 

o ■ 

i-j< mu 

3 

l 

l r l / 

!.•» S 

- 

10 133 

I M TCN 

X 

0 

159 NSORCE 

3 

l 160 NSPRSC 

X 

0 

loi 

= 

' 2 

16? 

7. H’VSH 

= 

2 163 


X 

0 

166 

3 

0 165 

8 

0 

14' 


Q 

It- 7 


S 

0 168 


3 

0 169 

3 

O' 170 ' ‘ 

= 

Cl 

1/1 ? 

= 

0 

17? 


= 

0 173 


3 

0 

176 

3 

0 175 

3 

0 

}7;_ , 

S 

c 

177 


= 

0 178 


3 

• 0 

179 

X 

0 180 

3 

0 

lu 1 

S 

0 182 


= 

ff Ifi3 


5 

0 

TD6 

3 

8185' 

8 

0 

l.-il. 

= 

0 

107 


= 

0 188 


X 

0 

189 

3 

0 190 

X 

0 

IV l 1 

8 

0 

19? 


* 

0 103 


X 

0 

196 

X 

0 195 

3 

0 

I'*, 



IM7 


s 

0 193~ 


3 

0 

199 

9 

’ 0 200 

S 



• r 


JiUKilNAL PAGE IS 
OF POOR QUALITY 




208 


( 

















i 





i 



r : »t i n r 

oi r - 


















4 


• 

— , 

r -CI 

* 

.. 24 Jjf- 

; , 

l 

■ s* 

- = 

"'j. lsKijf 

Tl 

! 3i LC - 


D .3SO0E-0?" 


f IK 


0.40uut 

03 

5 

A J 

= "• 0.7783c 

03 

— 

t 

H * I *. 1 T 

s 

vl. 7 


7 

M.,|r l T 

= 

0. Uililf 

-06 

fl 

= 

-O.lOOOt 01 

9 

Pl.NF 

s 

0.143OE 

03 

10 

KHOINF 

* C.3435E- 

-01 


1 1 

x r 

z 

-«•*> 


u 

>.r 

= 

c.o 


13 OFLP 

— 

O.loOOF. 0 1 

14 

EPS 

= 

9.100CE- 

-Cl 

16 

H 

= 0.4000E 

-04 


u 

**V ** 

z 

.i.- • 

J] 

1 7 

‘i 'I'l 

z 

0.0 ' 


13 Oi T'PS' 


'“0.0- - 

“14 

OMTcPS 

a 

O.C 


20 

PTIrt 

= *' 0.0 

— - 


2 1 

f* r 

- 

•J • I : - 3» 

l 3 

23 

r r 

- 

o.m loir 

03 

33 1 1 . V F 

= 

0«0 

24 

TO 

= 

0.0 


25 

TwNC 

= 0.0 



_ 

* ». •’! 

= 


:i 

27 

til r 1 

3 


C-. 

in WOT. I-V 

r 

O.lliiSF 0*. 

24 

/ T 

s 

0.0 


30 

CP.II4F 

= 0.2407F 

00 


> i 


= 

1.0/ i 7. 

v 

12 

•• TC •, 1 

- 

C.S201C 

35 

33 P.TColvi" 


0 .2353F 03 

34 

«TC093 

” ~sT 

0 .5334E 

02 

35 

TO 

= 0.8003E 

02 — 


u 


'* 

V- 


i 7 

Ml; 

= 

0 . l loot 

01 

30 yvillNF 

= 

J . 133oE— 04 

3V 

pcoor 

8 

0.34C3t- 

■Cl 

40 

TRATIC 

» 0.49 94F 

01 


i 

* i*t* r 

e 

•1.1 


W 

Y-i.li 1 

= 

G.O 


111 BEFt. 

= 

0 . 333 3F-03 

44 

SO 2 

= 

0.l4l4r 

01 

45 

HS 

= i 0.0 



"« 

• ***** 

r " 

% , 


<•7 

1.*. r„- 

S 

T.O 


“4.V- F FCOF 

~v 

— 0.0 

“49 

’ — * ' ‘ 

s 

' O.C 


' 50 

SSI NT T 

a *»,0. 4r 0 DOF* 

-04 


i 1 

i % 

= 

- 0 .1 


53 

C 

e 

0. JiJot- 

-03 

31 YSCALF 

s 

0.3333E-3i 



= 

0.0 


65 

rtcot:4 

■ 21.4498E 

33 


* -• 

u 1 • 3 

_ = 

o • » ' . '3 

»/» 

37 

■■ t<; • .► .» 

3 

1. J '7 if.P 

01 

01 itfinf 

= 

O.5330E 03 

54 

FACtliU 

8 

0.l986r 

CO 

60 

o A M - A F 

= ,* C. 14 00E 

01 


1 

* i *• ' 

- 

.1 • .. 


O/* 

C-' v 

s 

C. iJOCir 

0^ 

63 

s 

0.0 

c*r 


S 

“0.0 


65 

Z Tf St 

= 1 O.IOOOF- 

-347 


* 

X *•»’ 


i t 


7i7 

Pi: 

= 

o.io-jiir 

01 

/.P 

• = 

0.0 

64 


= 

0.0 


70 

cur.RHC 

= ,0.0 



••l 

s 1 l !‘V ’ 

= 

1. 1K. M - 

J* 

7.’ 


3 

c. '.<v o r - 

01 

73 3 T l OCR 

= 

0.2040F 03 

74 

sn in x 

= 

0.1500F 

01 

75 


= .0.0 



T . 

/T ‘ 

- 

l.'/ 


7 

r l 

** 

~ 0. 5?H3F- 

-PI 

th ‘ rrN?~ 


‘ 0.ia45F-04 

79' 

" r.\CTP 

8 

~ o.503.nr 

01 

no 

r A C T H 

= 0. 7817E- 

-or ■ 

— 

- 1 

« i 

r 



•“•4. 

VI 

= 

P.tr 



a 

0.0 

5 '♦ 

ClHPY 

= 

c.o 


55 

09 I fill 

= ; o.o 



i 


= 

* • '« 


’ 7 


s 

t?-.U 


•:« IlHM IN 

= 

0.0 

a'# 


8 

o.u 


90 


= | 0.0 



i i 


■s 

/ • 


• < 


s 

‘0.0 


~ •* 

= 

“0.0 “ 

■ 9i 


~a" 

~ 0.0 


95 


*'t 3.C 

— ■ — — 

— 

• . 


s 

*1. 1 


» 7 

.-•i-V 

= 

». l'.<.0f- 

O'l 

in xpni'iL 

= 

0.0 

99 

PPnCJiv 

= 

0.22041 

C7 

100 

I’PR I Vf 

= { 0.0 



i it 

V jj 

- 

t . 1< •• Ji 

pi 

1 V 

7S I-.v 1 

= 

O.il.lOJt 

03 

1(13 OFPLI 

s 

o.uofior 03 

104 

VFLCST 

= 

0.8056F 

CO 

105 

RflCST 

= S 0. 1337F 

02 


I*"'- 

•’CTm 

s 

i.i *,i;r 

.1 

I >1 7 

r CV:iT 

-■ 

' 0. 1 00 IT" 

11 

1)6 scrurr 

s 

“0.2000F or. 

109 

Tt’IA' 

— ^’ a — 

0.2S'57E 

n 2 

no 

TPH 

* * 0.3516F 

31- 


! ; i 

I.*’ 

- 

l!« J 


1:2 

x:u •. > l 

■M 

11 . J 


llj ri AST 

=. 

0.0 

l 14 

0L3MI 

S 

0.0 


1 1 6 

H $ T A P T 

= j 0. 1C 10F 

03 


1 1* 

'/ " 

- 

• . : - n 

«. 

li T 

l i 

- 

\}. IV!W 

.13 

: li' XH30F 

* 

0.342 IF 01 

t 14 

R i'iOAL r. 

S 

0.4963F- 

Y3 

12.7 


* » 0.0 



■ i;i 

• T ’ 

- 

i.; 


I 

•*-* rr 

= 

G • 3 


n IT OR 

"~= 

0. 1000F 01 

124 

ens 


' 0.4090E 

CO 

125 

XI AK 

= [ t C.5CCCE- 

-31 

— 

i. 

' • . * I ' 

- 

<. i ■*- 

.<• 

1-- 7 

y <■!■/ 


(..'jOCoT- 

-u r . 

138 XYIIPS 

= 

0.7300r-0b 

129 

su 

= 

C.7000C 

CO 

1 3C 

C4r C 

= . 0. 1000E 

00 


i . t 

.-1 1 1 


' • 1 - ' v ' 

:i 

13 » 

»• it 1 . 

* 


-01 

1 M PCM 

s 

0.1000F 01 

134 

0 39 AX 

s 

c.ioocf 

.31 

135 

EUPSH 

=.r 0.0 


* 


' i ; • 

- 

"\ u y : ■' ‘ ■ 

;1 

in 

ri 17 V. 

= 

C...3 1.ir 

•31 

IT' F L'T PSP 

" =* 

0 . 3 50.1 C oi 

139 

* vw 

a" 

“O.C 


140 

Vif 

= 0.2C03E 

01 - - 

— 

i . i 

JA 

- 

.i .i .• 

l 

i ./ 

V * 

Z 

i) ( o 7 r » i)r 

U1 

17.3 C-.LOSK 

= 

l)« )GuJL 05 

144 

C<»h ACT 

8 

0.100CE 

Cl 

144 

L1C2SW 

= ;O.2t?0C- 

-01 



T »fl 

c 

•/ • 

■' J 

i'.; 

11 -1 

= 

0. r >£CU> : 

01 

lit r.VH 

a 

O.IOOOf: .11 

144 

CVU 

S 

J • 

CO 

150 

IVT 

= C. 1000C 

01 


i;i 


- 

# . / » * t • _ 

•. "« 

is* 

C 3 


0. 1 ou3” 

03 

1 »3~ ~ CVCP 

s~ 

“0.4186E 04 

154 

XXACIS 

* s 

G.4469F 

01 

155 

TSINF 

= | 0.1335E 

03 


i 

* Clf- 

= 

j • ♦» 

.5 J 

1 >7 

li 

= 

0. /‘(‘.Ol 

03 

I5m* lpa 

= 

U.24G0E 00 

169 

CPH 

= 

l)a 

01 

160 

CPtM- 

= 0.24 00E 

00 


i 

>••!'•> 

= 

i.i 

: r. 

k.2 

1 Ti ll 

3 

C.13 0-.I1- 

03 

16’ FTtrCH 

s 

0.3043F 02 

164 

FTT39T 

8 

C.3046F 

00 

17,5 

OR TOOK 

= 0.5556E 

00 


T- • 

-••• T**-7 

= 



1 ,7 

■’S.'Tn 

3 

i.i5*Jir 

on 

ua’T’srrnr 

~ s~ 

“ 3.473 OF Or 

17.9 

PSFTT1I 


“ 0.69441*- 

02 

170 

POFTCK 

= ' 0.1602E 

02 — 

— 

: ' ! 

• - ' r .l N 

= 

i 

•**» 

1 »V 

V«f \C I 

= 

O.OU?jt 

01 

1/3 7 v AX 

r 

0.0 

174 

POFTijC 

S 

C • l 6G2 l- 

Cl 

174 

F6T0AJ 

= . 0.2324c 

01 


* /' 

r. •• -.j 

s 


i.i 

177 

Yl ’ll \ 

* 

G. I'.HHP 

01 

171. VLP.TCP 

s 

.1 . 1 4fl 3 F 02 

174 


= 

O.C 


l SO 


= . 0.0 



i ) 


- 

r • j 


S 7? 


= 

3. 1 


T3V 

s 

“0.0 

184 


= 

-O.C 


185 


= 0.0 



i 


- 

0.9 


1 '.7 


= 

0.0 


IWF 

s 

0.0 

189 


s 

c.o 


190 


= ; o.o 



i < i 


- 

u • ■’ 


l» > 


* 

c.c 


1 13 

s 

0.0 

194 


a 

0.0 


195 


= j 0. 0 



l .t 



0..i 


1 * 7 


S 

o.u 


1 11 ~ 

— 

u.O 


= 

“0“.0 • - 


200' 


=1 .••o.o 















t >• o o' " 

T ! t- i. - J I I'J-CAI n»|VJA«V VARIANT 

C«FO CSsE.Th-»rr PFNSIPVU r C » C T ! Nt» BOUNIARV REGION - VIRTUAL SCUkCE 
c — ••!•;» ism-ft 'FMunsH-iN ~ k-n'-s x- g- s 


04/26/7* 


V F l ' If''... 
Vi it* .... 
TT-'T:’ -AT'J-'f" 

J. I 

r *: I *- • I .'V . . . 

' — 3.1 
«■ - '«■ .- ->h . 
0 , ■ 

1 5 » C * I T > . . 

i. i 


•tv-v Farssv r - 

I V VlllllilN 

■; .i 

Al/L rc 

.1.1 

-- -• --■r- <■ 


■ i 

~J7 r ' vr 

i ■ 

: .- /• i 

'777 5. ’ j 

•i.M. !>’ 
v.s , > ;; 

o.n iv 

i . J 5 :'t 
0 . 1 * '• * 
V . „ r . V) 
.1.. J J 1 


”i-;i i si — f r 

•Fni.CISH-IN 

_ k _ k -_ s 

■.ft.. 

.is;;.., ;r.; 

. 

( . *3 'll' -02 

J.4000JI-01 

o. nioOC -02 

. c I . 

. *•. . A 

# y/S 

L-..V72CI 04 

'( u 

■ 0.6<325ir 03 “ 

• It /> T 

.A .A 

.K6/M1...... 

o . j . - u 

n.o 

0.550226 00 

»■' /■ 1 . « • » 

' .'..A. ..... .. 

. *rL V I N 

0. - 1*50! 0 3 

0. 0 

0.2VS11F 03 

. •> • • /I •' t. . . . 

. Ai . A 

. NJ/KC. 

.M l- - "' OR 

■ C.O 

— TT.1A401F 0*3 

. * |/| .1 - 

.\.A 

. K J/K(.-K. ... 

0.2 •<* 7Jt JO 

•J. J 

. 0.1JJ72F 01 

.1- - / r T-S . . ' 

A • 

7M-S/<27... 

Z • 1 4* Jr A*- “ JA 

C. 0 

0. |H420f-04 

H - < - X - X 
.. . .. 

-X-X-X-X 

- x - x - x - : 
— ^JT/V2;;v..*r 


Il.l J 01 

*rr t- I ■ , 
‘D. W ’’I 
H* l/l F r 
0.0 


o. i ?*ozk m o.'^Aojr or 

ni'i)uitsf/H3i max. m 2 cent. 
0.0 0 . 10 J 0 JC oi~ 

r » M LON l>HKtN/LR(F 

0 . ILUOOi'-Ol 0.0 


~~X~- X - X - X~~X - X - X - X 


'7TM...r..V.T * 
O.lOltUF 00 

.CM/S 

~0.'6y25IF 05 ‘ ' 

.o/a. 

0.55022L-J 3 

:n.a 

0.0 

•N. A. ....... 

'0.0 

• N.e 

0.0 

“".POISE... ..." 

0. 16428E-03 
-x-x-x-x 
‘ VTORP ...... ^ ■ 

C.6-*3(JoT 02 
Mix Ff-F.IFTA) 
“ 0.0 


X - X - X - X - X - X'- V -'X -'X — X - X - X - X - 
N- N+ PASSES PRINT C.F 

002 1 l 00 


l I /im cr 


T. 171 COT 
o. (VASA 7 

U. C’il 2 *> 
{,. 03737 
0.01 5'tA 
O.Ortl27 
C. 06-76 .T 
0.07742 
0. J 73 CO 
0.06615 
J. Ol.CCC 


07113000 ' d; 
0 . OS 34 7 0 . 
U.0V12V 0. 

07037 m; 

0.0*54-3 0. 
0. 0632 7 0. 
'J. 03063 0. 
0.077.2 U. 
0.07306 0. 
C. 06615 0. 
0.00000 0 . 


'0700000' 
0.00000 
o.coooo 
0.00000 
o.oouuo 
0.00000 
0.00000 
0.00000 
U . 00000 
C. 00000 

0 .oouoo 


0700000' 
U. 10000 

o.uuuoo 

0.0 loco 

0.0 00 CO 
O.uOuiO 

o.oooco 
o.onooo 
0.00000 
0 . oooco 
0.00000 


CTOOOOO 

O.tyJ lull 

c.ocooc 

C.C0300 
C. 00000 

o.coooo 

c.cnooo 

c.u.ioou 

0. POO 00 

c.coooo 

C. (.0000 


0.00000 

c.eo’oo 

O.OOO'lO 
0.00000 
C.O-J-JOO 
0 . 00000 
o.onroo 

C.O )J 00 
0. 00000 
c. 00000 
o.coooo 


0.00000 0 . 
0.00000 0. 
•J. OOOCO 0. 

c.mcc? o. 

0.O0CC0 0. 
O.O'JL'.O 0. 

o.coooo n. 

C.JUCCO 0. 
C.UCQCO 0. 
3.00CC0 0. 
O.CUPCC 0. 


CO C. '7'.JO ■'.l.’SuO I./Suno O.VOOOO 0.62500 


O.OOOUO 0.07500 0.12500 0.2500C 0.40003 0.62500 


' _ 


of-^oor 



00219 

0021*1 


00247 


0700247 


0.00258 

0.00264 


00270 


00277 
302o6 
002 <57 
00311 
UQ3d5 


0.00277 
0.00286 
0.03297 
u. 00313 
0.00385 


0508 
04 75 
044 3 
0411 


0344 




hSIAT/HlFF 


.00219 
.00219 
IOC 2 14 
.002 19 
.00215 
.55i?r 
.49922 
.•! ••(2.- 
.00257 
.00313 
.00365 


9. jO^ 1 
0.002 1 13 
■0.fC215' 
3.3021 i 
C. CC2 1 *■ 
T."527 
0.9 5522 
0.95422 
j...C2 r 5T 
0. JC311 
0. 'C3B5 


0.CC215 0. 
O.OC234 0. 

<r;cc247 or. 
0.00256 0. 

0.00264 0. 
D79077C XV. 
U.UC277 0. 
0. 302.it 0. 
0700257 0. 
O.C0313 0. 
C.0C3P5 0. 


0.00219 
0.00234 
0700247 
0.00258 
0.00264 
0.00270 
0.0027 / 
0.0023O 
0.00297 
0.00313 
0.03385 


ftrir/KHORcF 


.ICCOC C.lCdCl 0 
.I7)JOO'X57IC3C3 _ 0 
. 10J00 3.10000 0 
.1000(1 0. 10003 0 
. 10000 “7r.n03-3C 0 
.30133 0.30113 0 
.OCl)t>. 0. JC 1 3J 0 
.oone“o;ooi35 2 

• J 1 4 4 1 2.03441 0 
.03012 0.JJ032 0 
7 0l965’ - 0.019c9“0 


,10000 0 . 
F0734TT57 
,05540 l . 
,05386 0. 
.04751 C. 
,04433 0. 
• 041U 0. 
,03765' 0. 
,7 3441 0. 
.03032 0. 
.01564 C. 


IOOCO 0. 
0 73 43 - "~. 
C5950 0. 
03085 0. 
C4751 0. 
04433 C. 
04116 0. 
03785 0. 
C3441 0. 
03032 0. 
01969 '07 


I 0.10000 

nr.' 073<T3 

) 0.05950 

> 0.05085 

. 0.94751 

I 0.04433 
. 0.04116 

>0.03789 

L 0.03441 
! 0.03032 

> 0.01969 


O.OuCUJ 0.O75C0 C» 1250 0 Q«Z5 qC 0 0. ^0000 0 >tl 2 5 00 


~ C'.OOOOOT. J J' C„ C YI250D'0'.250CO "0.40000 0.62500-“ 


li.oo jo-3 0.1)7500 0 . 12550 C. 25000 0.40000 0.62500 


:m ,„9 tto i -TZ-r-iTiyvwGra i tlv ~ 0Tnr96T oy o i 'of.'t - 

• ;i'-69 J.,)t?65 0.02631 0.02681 0.02/.81 0.U261II 
. 0 1 4.6 4 91565 0.C33C5 0.03309 0.03309 C. 03309 

r<n 7TTT5 7JT 1 754“ir-'0r3B7 1~OYO 3B71“0T. OlTTr* 0.D3F8 71“ 
.01569 0.01555 0.34144 0.04144 0.04144 6.74144 
.10000 0. IOOCO 0.04442 0.04442 0.04442 3.04442 

rrccaj~c.fri7;.rff.o*.7o3 _ 0'ro4763 0.04733 o.o47ar~ 

.10J00 O.IjOCU 0.05156 0.05196 0.J5196 0.05196 
.047, n O. 15721 0.05721 0.05721 0.05721 0.05721 
.06492 ••37)7, ,;? 0.9645? 0706,49? -0.7)6492 O.06492~ 
. IC..02 0. 10007 0.1000U O.IOOOC 0. IOOCO 0.10000 


CPP/CP6KEV 


£ 2 


■0.0 1000“ 0701000 0.01000 0.01000 0.01000 0.01000 
0.01000 0.01000 C.0100C C.CICOO 0.01000 0.01000 
0.01000 0.01000 C.CIOCO C.C1CC0 0.01000 0.01000 
0.01090 0.01000 O.OIOOG 0.01030 C.01CC0 0.01000 
0.01000 O.Ol'JOO C.CICCC C.CIOCO 0.01CC0 C. 01000 
0.14115 0.14115 C.CIOCO C.OICOO C. 01(00 0.01000 
0.14115 0.14115 O.OIOOG O'. 01000 0.01000 0.01000 
0.14115 0.14115 0.C1CC1 C.C1CC1 0.010C1 0.01001 
a. oiooi o.oiuui 0.C1901 c.oiooi o.oioci o.oiooi 

0.31001 3.01001 C.ClOOl C.G1CG1 C.OIOOI C.C1301 

0.01004 c.01004 C.C1004 G.010C4 0.010C4 C.010C4 

0.00000 0.O75G0 C.125C0 C. 75000 G.4C0C0 C.625C0 

HTCIT/HkfF t l 

0. 00039 0.00059 C. 00039 C.0GC39 0.3C039 0.00039 
0.00039 0.00039 C.U0039 C.C0C39 0.00039 0.0C039 
“0.00C39 0.GCC31 C.00C35 C.C0C39 G.0C039 C.CC035 
0.00039 0.01)039 C. 00039 0.0UC35 0.00039 0.00039 
0. 00039 0.C0C35 C.CCC39 C.C0C39 0.00019 0.CC039 

0.10030 C. 1036,0 (1.00039 0.00035 I.OOGjO 0.0CO39 

O.tCOOO 0.10000 0.60039 C.C0C35 0.00039 0.0C039 
0.16030 C.1GOO0 (i. 60039 C. 00039 0.00639 C.0C039 
0.00039 0.00039 0.00039 0.00035 C. 00039 0. 0CC39 
0. 00039 0.00039 0.CC039 C.0J039 C.00C39 0.00039 
0.00039 0.00039 C.L0039 C.CCC39 C.0LC39 0.CC035 

0.0000 0 0.07500 C. 17500 C. 75000 0.40000 0.62500 

# . 

EIF4.H2 K,/. S .ntAC E l 3 

0.00000 0.00000 C.COOOO O.OCOOO 0.00000 0.00000 

UYOOOOa 0.00000 O.OOOOO 0.00000 O.COOCO 0.00000 

0.00000 0.00000 C. 00000 C.COCOO C.CCCCO O.OCOOO 
0.00000 0.00000 C.COOOO 0.00000 O.OOCOO 0.00000 

0.00000 0.00000 C700000 0.03000 C.OOOOO O.OCOOO 

0.10000 0.10030 0.00000 C.OOOOO O.OUOCO O.OCOOO 
0.10000 0.10000 C.OOOOO 0100000 0.00030 0.00000 

0.10000 0.13000 0.90000 0.00000 O.OCOOO 0.00000 

C.OOCOO 0.00000 C.OOOOO 0.001)1)0 C.OCCCO O.OCOOO 
0.00000 O.OOOOO C.OOOOO 0.00300 O.OCOOO 0.00000 
O.OOOOO 0.00000 C.OOOOO 0.00000 c.ccoco o.ccooo ~ 

0.00000 0.07500 0.12500 C. 25000 U-4C000 0.6 25 00 


0 


' l 1 . M ,! ••■AS.ei-Ar r. a ElC’9.112 MAS-EHAC E 


l 


J . v.’ s 2 

1 . 7 6 mj 

». 7i. 7 ' 

7 t 

0. ft /CO 

0.76700 

C. 76700 

0.23300 

0.21303 

0.23300 

C. 23 300 

0.23300 

C. 23300 

•C.' J V' 

... 1‘ 7'J 

.3. 7( 7 '••) 

■ . 77 7 ',0 

0. 77. 739 

0.76700 

n. 76700 

0.23300 

0.23300 

0 .2 3 3 CO 

C. 23330 

0.23300 

C. 233C0 


. u 

i . « 2M. 

i'.7c :;v 

C. 77 700 

0. ft- 700 

'0.76700 ’ 

0.2J3C0 

0.23303 

0.2 33 CO 

C. 23300 

C. 2 33 CO 

0. 233C0 

-.33 : j 

i 

C . 7 .. 7 ' i 

■■'..T’-y-n 

o. /t. no 

0. 76 700 

0.76700 

0.23303 

0.233'lj 

0.23300 

0.27300 

C. 2 32 u J 

0. 23300 

. 4 3 " 

. / • 7 J . 

.. . 7.. 7 1 

7>. fjtj 

■j. 7o 700 

0.76 7 )0 

o. rt7 jo 

C .233C0 

0.27300 

6.23300 

C.2 J '00 

0.2 3 7 CO 

0.22300 


J . 0 .> 

^ . * l, *. i • 

7 < 7J-1 

0. 7u 70.0 

0. 7o7oO 

0. 76700 

O.OOCOO 

U.OOOOO 

0.23330 

0.2330C 

0. 2 3? CO 

0.233C0 

j . > ’ : j 

:J . -?ti J.. 

> 7:* jj 

1 * • 7 7 701’ 

0. 7 7. 700 

0. 7o 700 

0. 76 700 

0. 02 COO 

0.33003 

0.23300 

C. 2 3 300 

0.2 33 CO 

0.23300 

' . 1> . 

o. > j--j-: 

j. 

o. /►, 7 ir 

J. 77 7J3 

0. 7a 7 JO 

0. 76700 

0.00000 

0 • u 0 C J 3 

0. 23300 

C . 2 3 3 JO 

0.233CJ 

C. 23300 

*3.1’ “ 

" 7- ' ■ • 

U. ’ 7.-. 

>' . 7f 700 

0. 7 <- 7 ,)u 

0. 76700 

0.76730” 

0.2 3300 

0.233OJ 

0 . . 7 3 w f* 

0.23330 

0.23370 

7.23300 

Lj . . ' . 

J ' 

’■ 

’ . ft 7;;.' 

l . 7o 7 0,1 

0. 76 700 

J. 76700 

J. 2 3700 

0.2 '30 J 

•1.2 33 J.) 

0.23JOC 

2 3303 

0.23300 

j . J ) ) 

. ' /■ • i 

• 7 2i 

.77. 7 )0 

t . 7f. 700 

0.76 /!)•’ 

J. 76 7 00 

•J.AJJoO 

0 .23300 

0.23300 

C.23i’)0 

3.2 32 CO 

0.23300 

t I 

'•-.cCvOO 

7r>:-i 

C. 12 5J 3 

1.2 50 CO 

0. 5(3000 

0.62600 

0 . GOCCu 

0.0762 J 

0. 125CO 

C. 2 5003 

(1. 60003 

0. 62500 






II./- C -6 





■CJ/' , IM H 

t l 



l 

; t, ' • » • 

V 

.JC* ‘ 52 

). 

■.) . c r ^ ‘rt 

0.03662 

C* 00rt’l2 

0. JOfl<3 2 

0.020<36 

J.J2ud-> C.22JH6 

0.02CH6 

0.02056 

0.02026 

*7 * * * 


• !u>. ; 

J « 

■ J2 /.-I 16 3“ 

J. 01630 

0.0161H 

0.01633 

0.(320(16 

0.32366 J.i.l'll'i 

0.02666 

U* 2t c 

0. 02969 

^ T 7 * 

\ - 

. 32. J2 


.1 2 . -• i 2 m 

0.31 s2<« 


0.0167° " 

■>.02051. 

o. ofcoi o.r.-itnfi 

0..3363F 

o.ov.fa 

0. 0369? 

J • * ? 

2 

. )>. : * 


• . j,* •:. i! 

J. 01 J63 

t.Olf-O' 

0.31«"3 

0. 320/16 

i) • » • * 1 2 (* 

t! •0 ; i 1 i to 

0. J6526 

0. 36320 

^ • y * • ■ 




••4 " 1i . ' i< v.*- % * 

0.U205 7 

J. 02067 

0.07057 

0.07066 

J. 02066 0.66627 

O.C 6< 27 

(J . 1)6 1 2 7 

3.06627 

1 , / *» i 

c 


j. 

i . 

3.0226T 

3.02265 

0.02265 

o. lcroo 

0.1C303 0.26550 

6.26150 

0.06650 

0.06950 

> ^ » i 


. ; > l 



0.023/1 

0. O’ 6/3 

0.02673 

C. 100013 

0.100CJ 0.05? 12 

C.0531? 

0.06J1? 

3. 05312 





.. *' >. 1 7.>6 

t. 31 7 i36 

0.01 71'. 

0.01 766 

0. 10000 

.3. 1CJ03 2. . °7J</ 

C. 6 5 71" 

0.0573/ 

0.05739 


* 

. !l!4‘ 

' . 

l . m r 

2.01 lA r - 

0.017-15 

0.-31165 

0.06767 

0.06? j 7 0.C6267 

0. 06267 

c.at’tT 

0.C62C7 



. » « 

• # 

. « : . . ’ v ^ i 

J. 02*. J J 

j. t.2-. 3 3 

). u260-3 

v? • 0 7 ‘j J / 

-3 . ) 7 Jt; ) J. I/.. 3V 

0. J7J09 

0* 0 7 j J t 

J. 37339 

_ • 0 _• ■-/ 


1- 

). 

v JJ O.J.'JU 

0. J. 7.i l J 

0. 1)001 0 

3.000 10 

O.IOl CO 

0.100 JO C.lJOOC 

t*. 1 JOC) 

■j. 10300 

0. 1 CUCC 

*- i 

0 


) . 

7-3 >•) i .12300 

t. 26000 

0.63C0C 

0.62500 

0 .00003 

0.076C) 0.12500 

0.250 30 

0.6C0C3 

C. 62500 




r*T. 1 •’ ' G;> T L \ r 

'. T 0' 




OFF, SCI’-' 1C.T ND 

Z 3 



l 



J, 

7. • j 73 )»'•' 

C. 7 7000 

3. 7'HIO') 

<3. 70000 

0 . 70UJJ 

0. 7JOCO C. 70200 

C. 70000 

C. 70030 

3. 70000 

— • . • ; i 

c 

.7 ' 0 * 


f r w 7 . . 7 ii '■ i 

.. 70 32.3 

0.730)0 

0. 70000 

’ ’ ' J.700C3 

0.700,31 0.7C-300 

C.7-33J3 

0. 70000 

.3. 700C0 

7 


• 7c 

>. 

/ o.7-.:.,.t 

0.7JC00 

a. 70000 

3 .70000 

0.70000 

0 • 7 0 3 (3 3 7.70300 

C. 70 )30 

C. 7C0C0 

0.7C300 



.71 D7 

) • 

v. ../ j.'oc 

(l. 7(1000 

0. 70 JOO 

J. 70000 

0.7CCOO 

0./J003 C.72JOC 

C. / 00 3(3 

0. 702 0 J 

0. /COCO 

r . ~ ■ j 

r» 

. ?nr . c 


r;." 1 ' .7. u.r 

C. 73003 

0. 73000 

3.70000 

— 0.72020 

D. 70033 C. 70003 

0. 72 330 

•3. 7CC23 

0. 70030 

G . J ■* ’ • ) 

,) 



. njcc 

). 7 ’.;0j 

0. / 3200 

0.70000 

0. 70JJ0 

J. 70303 ( .700(10 

3. 72,03.3 

C. 721,20 

0. 7 CO 00 


f 

. 7'- V 

•J. 

V »0 0. 7. IOC 

C. 70000 

0. /OtlOJ 

0.7300(3 

0. 7C3-30 

0. /C JO 3 C. 70000 

C. 7)).<J 

0. 702 03 

0. 73000 

■ . i . '• 

V 

. 7.' 7 3 


7 00 JO 0.7 3 MC 

C. 7..--7CC 

3. 730 30 

C .70000 

0. 700C3 

3.720C3 0.73300 

L« t i u v> J 

c. 7nciiO 

0 • 7CD00 


J 

. 7.,.'.: ) 

. 

/> . JO . . / ).JOt 

0 . 72220 

ii • / J *J 0 

C. 7 )000 

0.70000 

0.70-30 J 0.73)00 

C. 73330 

C. 70.20 

0 . 70000 

t'. V 

r 

. 7o:\*C 

7 

r o.7o)rtc 

. 7 J 3-3-3 

3. 7-.KH-0 

3. 701)00 

C. 7C/.C0 

O./' Jca C. 70(300 

0 . 7oO 30 

3. 7 j JO 

0. 7 -3U00 


— . . • 

.7 W ? 


'',;o-: '.72 roc 

C. 7J023 

2. 7 3.3? 3 

0.70000' 

'0.7000C 

3.70303 2.73032 

C. 73033 

C. 7C333 

0 . 70000 

r * 

u 

• JCi* .*0 

3 a 

: 7 -• -} 7 ’.126)- 

J . 2‘* 1 00 

0 • JQjO 

C.o?500 

0.00(300 

0.075(30 i;.I25JO 

1.25c JO 

C • t(Ji) CD 

0.62500 

S’! 

; r ^ \ r . 

7 1(.\ 17 ts 1 

1 'll! i.Alf' / 2 









i 

r.i- 

776>.71 


■? '..K735r-rn 

' 3 — 

OVl«“7151-Ol 

CT O'. 167351" 

-31 r 0. 

1 ^ f iUC-'JI 



; l 1 


ORIGINAL PAGE IS 
OF POOR QUALITY 


213 


" »f 


C 0 M 0 C 

T hREE- 0 I MFN s IfINA L QP UN OAKY RE G_l UN VA RIANT 

CHECK CASE^IMKEE I.'IHC iSHINAL REACTIN''. BOUNDARY REGION - VIRTUAL SOJRCE 


04/29/ 74 


RfCEJCIitf ' 'EM'.L 15 Tl- r I 


FNGCT SH-IN 


LtNH E 

0.0 

VELOlITY 

o.o 

density 

O.D 

' 16“*’ J AT l)R 
n.o 

Ff.’T h ‘lPY ...... . 

n.o 

f-rtC./ •S-’EC. E f AT 
0. J 

ViiC SHY 

0 . ) 

X-X-X-X- X • 
LOCAI ESS JR i- 
C.J 

lucai solution 

a.) 

X I / L ' r E 

O.ilO)/' 0? 
-X-A-K -X — 


-. TT'.T. — 
0 . 33333 C -02 

.r T/i 

~o;? 272 C e 04 _ 

• LI-o/Rl ).... 

0. 34 J'.fc. -01 
- ~.->AV I ?,= .... 
0 . 53 >Ji)c 03 
.ITII/LISM. . . . 

“o.fiss^r op "■ 

•RTU/l a .. 

0.2407 it CO 

.Lr.'/n-s.;. 

0 . 12 IhX .-04 
- X - \ - < - X ■ 

~.psr — 

C • I V 30 Of CJ 
V’. 

— r.--. 557 RF oi ~ 
cxi/i.Rf r 

0. 14 3991 ' Cl 
X-X “X - X~ 


.IN....V.T.' 
0.40000E-01 
.N.A. ...... 

— 070 '“ 

.N .A....... 

0. 0 

.N.A....... 

0.0 

.N.A....... 

- C.o 

.N.A....... 

_c.o 

.N.A....... 

0.0 

-x-x- * - 

.PSI*. ...... 

0. 1340?E 01 


0.10L60E-02 

.M/S 

T- — 070925 1 E “03 — 

.KG/M3 

0.55022E 00 

7 KELVIN'. 7.".~ 

0.2901 l E 03 

.KJ/KG 

0714401? 09 

.KJ/KG— K * . .. 

O.10072E 01 

.NT-S/M27.V. — 

0. t842bF-04 

x - x-x-x-x 

.NT/M2..T7.'. - 

0.92408E 04 


OPOX l ( LRF /FT3 I MAX. M2 CIJNC. 

0.0 0741 637E-01 

EPS I LON DXIMIN/IREF 

0. 1000JE-01 0. 37.5 00 E— 02 

x - x' -— x~-nc x~-ir- y 


0.10160F 00 

.CK/S 

07692 51 2 05 

.G/CC 

0.55022E-03 

.N. A.. ...... 

0.0 

.N.A. ....... 

— o;o 

.N.A........ 

0.0 

.PC ISE'777 7. .~ 
0.18428E-03 
-X-X-X-X 

—.tour ,-r.rrr . — 

0.69306E C2 
MIX rFE.IETAI 
~0. ’57290 E-00 


F l 

0.50.. .11“ 
7 .o 5 v 10 
■3 . .* 7 *> J 0 
0. i5u j 3 
3.3J.UJ 
0.2 

J.VwV ) 3 
0.15.1 1 
3 . l o ; .0 

u ■ jO 
3. 3003 J 


" 0 . 9^453 
C .99622 
0.19205 
C.9&057 
0.90954 
0.33100 
0.71096 
0.55612 
C • 3934 7 
0.22b77 
0.00000 


U 1 /UK I E 

'll. 15930 ( 
0 . • p> 3 7 C 
0.1720) C 
0. )32.1h ( 
0.38779 i 
0 . H 14 ?2 s' 
0.73425 ( 
0.5536:j i 
0.3412F ( 
0 . 24370 I 
0. 30100 ( 


C. 99569-3799223 079994 3~07 9907 07- 
0 . 5 8 5 >i 0 0.94643 0.94493 0.94430 
0.93201 0.50254 C. 89545 0.H1838 
0.85336 0. 85 732 078531 8 "0735 128“ 
u. B5504 0.82/53 0.81994 0.81874 
0. 152/3 0.76767 0.76993 0.76834 
C76EB55 0.7.7556 0. 6817r 07 68179 
0.54363 0.54019 0.54236 0.54783 
0.33484 u. 37796 0.37221 0.38664 
0.23321 0. 23343'0. 221 00-0. 26737“ 
C.COOOC 0. 00000 0.00000 0.00000 


-X-X - X --X- 


“X — X — X - X -— X“- 
N ♦ PASSES PklhT 

1 4 289 23 


- 077 250 1 * 
-.00363 
-.01998 
-=.02413* 
-.02918 
-.02388 
-=701420* 
-.00612 
-.00147 
-=700002* 
0.00000 


0 . 0000 l 
-.04036 
-.01364 
=702089 
-.02520 
-.02070 
-.01276 
-.00560 
-.00140 
=toooo r 
0.00000 


070034B C7 
O.OC520 -. 
- .CCC03 C. 
-.01392 07 
-.02377 L. 
-.01990 0. 
-.01261 C. 
-.00509 0. 
-.00081 C. 
0700014-07 
C. 00000 C. 


00642 7). 
00C46 0. 
C0396 0. 
0549B C. 
03105 0. 
01040 0. 
C1504-C. 
01163 0. 
004 76 0. 
CClll'-O. 

oaoco c. 


-07 075 BO 
0.03750 
C. CE2C3 
0. C8B84 
0.08016 
0.06327 
0.C394S 
0.01619 
0.0C5C1 
0.00146 
0.00000 


■ j.dCOOO 0.075arC.l25Cff 0725000 0740000-07-52500- 


E700000-0707500*C71 2500 "C72 5000 7)7 40000“0. 62500 





1/IPE8 


E 0 




CPF/tPfPEE 

r i 



t- 1 

0. Ju ) ) 

0.16667 

a. iss.j^ 

0.2C12S 

0 . 20 d^» 1 

J. 21 163 

0.21175 

0. IOOUO 

0. 10900 

C. 10000 

c. loom 

0. 10000 

0. 10000 

n.f sr j > 

0.2 )OJ2 

V . : 1 6 * 7 

ii.;:/. i / I 

0.2«010 

J. 26302 

0.21317 

0. 1 0006 

0.10009 

0. 19009 

C. 10007 

J. 10003 

0.10002 

0.6 7* J J 

C. 22720 

a. 75 r )i 

a . 11 ’mI 

0. 35193 

.1. 35169 

0.35122 — 

0. 10211 

0.10721 

C. 10216 

0.1CC58 

C.1C018 

0. (0006 

0.3>U. * 

0.6 5J>i2 

0.'.*. J 16 

«J • ft: J 1<i 

C.a .0*5 

J.61 n6J 

0.61H69 

0. 12:173 

0.12688 

C. 12058 

0.10535 

C. 1C066 

0. 10013 

J. ’ : J 

i) . Vu l f 

0.5 5 .7-1 

C • r > !* 5 '» <i 

J.50/JIU 

0.W.79 

0.662/5 

0.16130 

0.13/27 

C. 13236 

C. 10956 

0. 10116 

C. 1C020 

0. 2 t. j.J 

C.t><i«s 

0./: 6 1 '• 7 

0.56711 


0.53219 

0.52736 ~ 

0.15C39 

0.16593 

0. 1502 1 

0.11293 

0. 10165 

0. 10030 

0.2-75 ) ) 

0. 7 3729 

0./3/27 

C. 733 15 

0.67903 

O.t 3573 

0.62926 

0.15102 

0.16753 

0.15161 

C. 11513 

C. 1C236 

0. IC0-.9 

•J • 1 *>C i ) 

0 . ” J 1 1 .) 

a. »12 16 

0. -125:13 

0.79276 

0.77120 

0.76115 

0.16638 

0 . 1 60b3 

0.1361 I 

C. 11579 

0.1C329 

0. 1C083 

O.IH J 

C . : 7652 

0. > 72C3 

r,.5l<>!6 

3. 39'. 16 

C. 693 16 

0.31029 — 

0.13151 

0.12382 

C. 12666 

0.11596 

C.1C621 

0.10133 

0.050' ) 

0.9/21 t 

0.15609 

0.96277 

C.9J729 

0.6613 /• 

0.96205 

0.11070 

0.11895 

C. 11686 

0.1 1386 

0. 10670 

0. 10163 

0... J. ) 

o.-jOh /t 

J. 

w • *) c i '* *6 

»*i. <ns«*6 

Cm 9'J , )96 

0.99996 

0.1C037 

C. 10037 

C. 10037 

0.11302 

C.1C686 

0. 101 82 

l 1 

‘".oocoo 

J. J 7*0 J 

.1.12500 

0.26000 

0. 60000 

0.62500 

0.00000 

0.07500 

C. 12500 

C. 25000 

0.600C0 

0.62500 

r l 

• 

HSU T/> 

5 C F 

C -1 






HTnr/HPEF 

E -1 



0 • *• *•. *. ,j 

0.02192 

>1. :2n6 

o. 37/ .13 

.1. 07219 

0. 02223 

0.02221 

0.03057 

0.03353 

C. 03857 

0.03858 

0.03656 

0.03355 

w. t JO v J 

0.02299 

■;. .7 MS 

.i.j2 !•.: 


0.C23H3 

0.02376 

“ 0.0391B 

0.03963 

C. 03933 

0.03915 

0.0387C 

0. C3859 

0.- 75.3 

U . 1 > 5 6 .1 7 

0. i6*,2<i 

0.C65-.J: 

J.C3618 

0.02652 

0.02539 

0.06069 

0.36102 

C. 05996 

0.C6776 

0.03956 

C. 03882 

0.3V '1 

0.7 r66 

0.290/6 

t. 21095 

0. 0/511 

0.03203 

0.02733 

0.30305 

C. 26575 

C. 22663 

C.0d73H 

0.06615 

0.03566 

u. i ) 

0.7- 7 *, / 

ii • > '# t ' ) 

0.3 1 3 / 5 

>7.11163 

0*037^1 

0.02377 

0.39735 

0.36012 

C. 31606 

0. 12295 

0.06660 

C. 03993 

0.? . .• 1 

G • •* u Z * i 

<.5 I- 1 1 

.J . 3 5 3 7 / 

i.. 1 3?5 3 

0.0626 1 

9.030O6 

0. 65300 

G« ^ 1 7 16 

C. 36926 

0 . 16826 

C. C5268 

0.06067 


7 . i 7 ? 1 

0. ll 656 

x. I5i‘sl 

(. 15253 

0.06655 

O.a 1629 

0.66626 

0.61280 

0*366^1 

C. ILF56 

0.05732 

0.06202 

J. 1 7 . . J 

0. 1 /'j'.J 


... 31 7 i t 

0.16563 

C.05t62 

0.03926 ” 

0.38123 

0.35557 

C. 31719 

C. 16C66 

0. 06333 

0.06623 

0 • t J w .# J 

0.2/ <63 

J, ? / j 

0.23»: .7 

6. 15915 

0. 06666 

0.06651 

0.28198 

0.26501 

0.26129 

0. 15157 

0. C6899 

0.06700 

0.' C .-. . 

0. ; 77tP 

•i. i r»9.i 

a. itJ/,5 

u. I'.ica 

0.07111 

0.06766 

0.17856 

0.18989 

C. lo655 

0. 16191 

0.07192 

0.06865 

0.73 • ) 

U« 3 iM'i 

o • s -j 5 6 

3.C3555 

C.. 13669 

3.07251 

0. 06 950 — 

0.03856 

U .0 3 3 56 

C. 03856 

0.13669 

0.07251 

0.C695B 

‘ 1 

0* . - JC. 

j* ,/>-o 

.7.125.0 

0.26000 

C. 60000 

06^500 

0*00000 

0*i)7‘>00 

(>• 12500 

C. 25000 

0.600C0 

0.62500 




E C 




EL CH .1*2 H6S.FKAC E -l 



0. . 

0. <*• 

0.'.- r < 1 . 

O.S/c 

0.56.. 5 5 

•J* 530? 5 

0.52973 ’ 

0.00002 

0.00003 

n . 00003 

C. 00006 

0.000C2 

0.00031 

J . . >2 J 

0 • ** : 1 W 

9. 1-.16 

1. . 751'. 7 

U* 7 li<?C / 

C./.4S6'. 

0.69521 

0.00966 

0.00089 

C. 00075 

C. 00061 

C. 00015 

0. 3C005 

7.'. 75 < J 


s3. ru 32 

J ,f rjf cftf 

0.55277 

0. 56502 

0.56033 

0.02203 

0.0225b 

0.0216F 

C.C0526 

C.0L166 

C.0C028 

L. J5j J 

/j. i. ?’(. 

j . 5 7 1 5 

0. i3t ‘.I 

0.51965 

0. 66533 

0.6695?““ 

0.26635 

0.22756 

C. I61.6I 

0.06903 

0.00563 

C. 00050 

O. • JJ I ) 

u • * ♦ b* w 

J. <616/ 

0.253 /C 

0 • 3 A d 1 9 

0.61616 

0.62665 

C. 3u0 19 

0. 32233 

C. 2/857 

C.CB673 

0.01010 

0.00160 

C.2-M, : 

0. 1‘ _ /i 

o.70'lt 

k.JK'.S 

0.25617 

0.36316 

0.37226 

0.61687 

0.38908 

0.33196 

C. 1 1012 

C.016C0 

C. 002 13 

0.2 jo .. : 

0.1 /.’-•. 

o. ; /• io 

f . 72 

'1.25 520 

0.30210 

0.31161 — 

0.60923 

0.37570 

C. 32916 

C. 12267 

0.01666 

G.CC369 

. i j . 

x.i 26/ 

a. i /!‘i j 

0.1 72-.S 

1.21356 

C. 26 71 0 

0.23670 

0.36602 

0.31/65 

C. 27972 

0. 12262 

0.02688 

0. 005 7 1 

•j. i V <_l 

u. 1 .* . ** 

.*. U / V l 

0. 1»S: 3 

0-.1-.12H 

0.21160 

0.22115 

0.26633 

0.226 15 

0.20353 

0.11366 

0.03057 

0.CC369 

J » o *i '« 

t. : 7o< c 

). 1 1 • is 

0.17510 

0. 1F070 

0. 16606 

0.20620 

0.16C53 

0.16250 

0.12656 

0. 1 0377 

0.03351 

0.01015 

j. ,kv: i.j 

0.i«6H.H 

0. 1 *-c7t 

0 . ISOtb 

0.17666 

0. 18:33 3 

0.19602 

0.00000 

0.00000 

C.O0000 

0.09c52 

0. C36 10 

0. 01 1 08 

E 1 

0*‘» JOil •> 

o.o/SOJ 

0. 125lO 

0.25000 

0.6000tr 

0.62500 

OVOOOOQ- 

CT.075CT 

m2500~ 

c.r5coo 

0.60003 

C. 62500 


ORIGINAL 
OF POOR 


PA.GE I s 

QUAINT 





O./b/OO 0. 76730 0./67C0 0.76699 0. 76700 3.76700 
0 • 76695 0 . 7t ( 93 0.766*5 u. 76695 0.76699 0.76699 
IT. 76 331 3.7/52t "C.?6" r 15 0. 76625 0. 75633 "0.7669F 
0.71697 C./v.bA r.7?7*e 0.76323 ). 7665o 0.76693 
0.7393/ 3.78223 C. 75563 U. 7oO50 0.76622 0.76689 
0.7iSo t 9. 7 373*. 0.75113 0.73355 0.76592 TT.76633 
0.73560 C.7>:18 0.751/5 0.75760 0.76555 0.76673 
0.75061 0.75263 0.75035 (1.75761 0.76509 0.76656 
0.75825 o. 75550 C. 751 3<T 0. 7532 T'O. "76 565 77.7663 S' 
0.73622 0.75675 0.73723 0.75905 0.76553 0.76622 
0./67U0 0. 76700 0. 767LC 0.75960 0. 7653H' 0.766 1 5 


0.VJ9 >0 
0./ 5.1 ) ) 
0*57* ) 9 
0. Ji J , 1 

0.3J6 7 l 
0.236 JJ 
0.20053 
J. 1503 3 
3.MC3 l 
0.U3O0J 
0. Uu.99 


O.OCOOO 0.07500 0.125LC 0.25000 0.50000 0.62500 


rFF. w .U/KUHEF 


0 .,1 r. 59 7 0.165 59 0. 16503 0. 18511 0. 18513 0.18515 
0.15935 0.35952 C.’50C.9 0.35031 U. 35035 0.35035 
C.377G? 0.i6'.'5 7' o.l 6 til 7 0 .3605 5~B.3 6 35 V' 6736 36 5" 
(1.371.51 0.37076 0.37C51 0.37061 0.37039 0.37038 
0.1717? 0.37165 C. 37166 0.17138 0.37095 0.37091 
0.1/273 0. 37i7i 0.J7276 0.37212 0.37165 0.37159 
0.37309 0.37359 0.37356 C. 37306 0.37266 0.37260 
0.17551 0.37625 C. 37539 0.375C8 0.37389 0.37380 
C. 37997 7>T37!T0fl“0V375 'fo. 37553 0.3759 Z“n. "375 HX 
0.57260 0.61578 0.58863 0.51550 0.52622 0.66923 
0.01000 O.01J0C C.OICJC 0.01000 0.01000 0.01000 


0.03.10 J 0.07500 0. 125CC 0.25000 0.500CQ 0.62500 


'~prr.~PR-ifgiiri: sr,. r x 


C. 7.000i: 0.70090 ti.700''0 0.70000 0. 70000 0.70000 
0.1 0.'7Uu0u C . 700uO \j m 70000 0..7.1o00 0.70000 
0.7O30C J.7C00C C.700CC 0. 70CCO 0.70000 0.70000 
0.7 OLOo 0.7CCCC 0. 70C00 C. 70000 0.70000 0.70000 
0. 7 :0o£ ;777C3CiJ"(J'. 7OOC.0 0.70CCC 0. 70000 "0.“7000a 
C.70UOJ J./iOCO C.70vAU 0. 7uOCO C. 70000 0.70000 
0.70JCC J.7C00Q C.TOC'O 0. 70000 0.70000 0.70000 
O. 7 . O 1 .J S.7Ct0O1!:7CC0C C. 7CCC0 C. 70000 ’0.70000 
0.70036 0.70000 0.70CC0 0. 70000 C. 70000 0.70000 
0.79C0J 3.7COCC 0. 700CC C. 70000 0.70000 0.7 0000 
0. 70000 (777 O’) OT" 0 1 TO tl 0 0“C“. 7 OC C 0" 0. 7UU0U 0.7 0 00 O' 


0 . . ) j t'j 
0 • 9 u . J 
0.57500 
0. 15S13 

0 . ikk'u') 

0.281 jit 

O./JJ.-J 
0. IbOjJ 
J. USJ i 

0*0 woo 

0. 10000 


O.iOUOO 0.07500 0.12500 C.250G0 C. 50000 0.62500 


0.11065E— 02 


0. 1 1687F-02 


Original page is 




ELtl.n2 M/SS.f-KAC E 


0.23300 

0.23298 

CT723250' 

0.22679 

0.22560 

-0727328 

0.22356 

0.22596 

--3722730" 

0.22972 

0.23300 


0.2J3C0 0.2 
0.23297 0.2 
0.232^7 G.2 
0.22769 C.2 
0.22557 C.i 
0.27515"0.2 
0.22525 0.2 
0.22559 0.2 
H7727ET-CV2 
0.22967 0.2 
0.23100 0.2 


0.23300 
0.23296 
0.23270 
C. 23165 
0 . ? 3 1 02 
“C. 23053 
0.23015 
0.23C15 
C.2 303 5 
C. 23058 
C. 23075 


0.233C0 

0.23299 

0.23286 

0.23266 

0.23276 

0.23267 

0.23256 

0.23252 

0.23228 

0.23222 

0.23220 


0.23300 
Ct 23300 
C.2 32 99 
0.23298 
0.23296 
0.23295 
0.23292 
0123286 
0.2328C 
0.23276 
0.23275 


0.00000 0.07500 C. 12500 C. 25000 0.50QC0 0.62500 


ilU/MUR Ef 


0.20839 0 
0.21263 0 
“O'. 25551“ C 
0.58062 C 
U. 59682 0 
“0.6955 m 
0.78157 0 
0.66310 0 
“0791816—0 
0.97619 0 
0.99986 0 


.20900 0 
.23056 0 
728770 X 
.50556 C 
.60896 C 
. 69551" 0 
.78157 0 
.65713 C 
. 9 2 2 03“ O 
.965/3 0 
.99956 0 


.21381 
.28726 
"."33502 
.521 16 
.62055 
. 69653 
.77788 
.86158 
.93022 
.97052 
.99996 


0.22255 
C.3C935 
0.39283 
0.59080 
C. 56217 
0.63516 
0.72868 
0 .81029 

€.91560 
0.86687 
C. 59556 


C. 22659 
0.31272 
"0739255 
0.56829 
0.51 c 09 
0. 5tt75 
0.68818 
O.S1153 
0.51579 
0.96971 
0*95996 


0.22665 
0.31289 
0. 352 13 
0.56755 
0.51581 
0.56185 
0.66205 
0.JC272 
0.50520 
0. 55535 
0.9899b 


0.00000 0.07500 0.12500 C. 25000 0.50000 0.62500 


CFF.soniTrrNrr.' e — 0' 

0.70000 0.7U0C0 C. 70000 0170000 
-0770000-0770000 0.70000 0.70000 
0.70000 0.70300 0.70000 C.70CC0 
0.70003 0.70000 C.700CC 0.70000 
“0'.70000 -OT70000-CT70000" 0. 70000” 
0.70000 0.70000 0.70000 0.70000 
0.70000 0.70000 C.700C0 C.700C0 
“ir."7CO0O“OT7OOOO 0.70000“0. 70000 
0.70000 0. 70000 C. 70000 C.70000 
0.70000 0.70OC0 C.70000 0.70000 
“UT7TOOO“tr.“70m)0"CT70000'Ci 70000 


C. 70000 
0.70C00 
C.70CC0 
0. 70000 
"O.7C0C0 
0. 70000 
0. 700C0 
0. 7C0C0 
0.7CCC0 
0.70000 
“0.70000 


0. 70000 
0.70000 
0.70000 
0. 70000 
0. 70000 
0. 7C000 
0. 7C300 
0. 7C000 
0.7C000 
0.70000 
0* 700 CO 


0.00000 0.07500 C. 12500 C. 25000 0.500C0 0.62500 


0. 11959E-02 


0.1 1 830E-02 



APPENDIX E 


LISTINGS OF AUXILIARY USER-WRITTEN SUBROUTINES FOR EDDY 
VISCOSITY, PRANDTL NUMBER, SCHMIDT NUMBER, AND 
LAMINAR VISCOSITY FOR VIRTUAL SOURCE SIMULATION. 
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SURREIUT IME CFCFRL 1000 l 

* ( INCOL i INDEX, INODE, IPINT, X1CUK, X2C0R, AREA, RHD, RHOU, 10002 

1 U, W, Y,EPSLN,YY, SCHMT, El, F2, AL, GAMMA ,CFUV2 ) 10003 

10004 

TWO LAYER EDDY VISCOSITY MODEL FOR COLD FLOW HYDROGFN MIXING 10005 

El = MIXING LENGTH MODEL 10006 

E 2 = MASS DEFECT MODEL 10007 

COMPUTF FDDY VISCOSITY IN TERMS OF NUN- D I ME NS I ONAL PARAMET C ’S 10008 

BFFORE LEAVING SUBROUT I NE , 0 1 ME NSI ONAL I ZF BY 10009 

FACTMU = ALC * RHnREF * UREF 10010 

Y ( X 2 ) - NON-DIMFNSIONALI 7ED BY ALC 10011 

UIU1I- NON-OIM^NSI ONAL I ZED BY UREF 10012 

RHO - NDN-DIMFNSIONAL IZFO BY RHDRE F 10013 

10014 

CON = MIXING l ENGTH CONSTANT 10015 

C4ED = MASS DEFECT CONSTANT 10016 

OMEGA = VAN DRIEST DAMPING FACTOR 10017 

GAMMA = INTERM I TTENCY FACTOR 10018 

XMSDF = MASS DEFECT IN REGIONS CONTAINING ONE PERCENT UR MORF H2 100J.9 

(NOT THE USUAL DEFINITION OF MASS DEFECT). 10020 

ARR = AREA OF FLOW CONTAINING ONE PERCENT OR MORE H2 . 10021 

EIF2SW IS LOCATION DOWNSTREAM (FT) WHERE THE TURBULENCE MODEL 10022 

SWITCHES FROM COMPLETELY MIXING LENGTH TO THF TWO LAYER MODEL. 10023 

F1E2SW USED ONLY FOR VIRTUAL SOURCE SIMULATION 10024 

PCNT IS THE PERCENT OF H2 DFF INING THE OUTER EDGE OF 10025 

THE MIXING ZONF. 10026 

NOTE - SPECIAL SUBSCRIPTING TFCHNIUUE USED TO LOCATE Y(X2),U(U1) 10027 

AND RHO RUNNING UP COLUMNS OF NODES. THIS WAS REQUIRED FOR 10028 

COMPUTING MIXING LENGTHS AND DERIVATIVES 01 U1 WITH RESPECT TO THE 10029 
NORMAL TO THF WALL,(X2). 10030 

NOTE - CONSTANTS WFPE DETEP.MINFD By FITTING PRFDICTIONS TO DATA OF 10031 
ROGERS, NASA TNO - 6114,1971. 10032 

10033 

IF DEBUG PRINT OUT FOR El AND E2 COMPUTATIONS IS REQUESTED, 10034 

SET IWRIT = 1 10035 

10036 

DIMFNSION Y ( 11. PHO(l), U(l), 4LF(l), TEMP(l) 10037 

OTMFNSION INCOL ( 1 ) , INDFX(l), ARE A ( 1 1 , I NODE ( l ) 10038 

DIMENSION X ICOR III, X2C0RI1), RHOU(L), Will, YY(l), EPSLN(l) 10039 

DIMEN r ION Fl(l), E2(li, ALII), GAMMA ( l ) ,CF0V2 < l ) 10040 

DIMENSION SCHMT(l) 10041 

COMMON / VARRLF / R A» R A Y ( 002 00 ) , JARRAY(0400) 10042 

EQUIVALENCE ( IARRAYI 000161 , NNOOE ) 10043 

EQUIVALENCE ( I ARRAY! 00030) , NP ) 10044 

EQUIVALENCE ( I ARR AY ( 00047 ) , LG I 10045 

EQUIVALENCE ( IARRAYI 00070) , NV03 i 10046 

EQUIVALENCE ( I ARR AY ( 000 7 I ) , NVU ) 10047 

EQUIVALENCE ( I ARR AY ( 00086 ) , KPNT ) 10048 

EQUIVALENCE ( ! ARR AY ( 00 1 07 ) , NE1F2 ) 10049 

EQUIVALENCE < IARRAYI 00108) , NUQ3 ) 10050 

EQUIVALENCE ( IARRAYI 001 11 I , IMAX ) 10051 

EQUIVALENCE ( I ARR AY ( 00122 ) , I WR I T ) 10052 

EQU I V AL C NCE ( I ARR AY ( 00 1 41 ) , KALLQ3 ) 10053 

EQUIVALENCE ( I ARR AY { 00143 ) , NT ) 10054 

EQUIVALENCE ( I AR s A Y ( 00 1 44 ) , NS ) 10055 

EQUIVALENCE ( I ARR AY ( 00 1 45 ) , NS2 ) 10056 

EQUIVALENCE ( R ARRAY! 00003 ) , ALC ) 10057 

EQUIVALENCE ( R APR AY ( 00021 ) , PE ) 10058 

EQUIVALENCE ( RARRAYI 00023) , TIME ) 10059 

EQUIVALENCE < RARRAYI 00038) , XMUINF ) 10060 

EQUIVALENCE < P ARR AY l 00059 ) , FACTMU ) 10061 
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EQUIVALENCE I R ARR AY ( 00 101 ) t YUP ) 

FQUIVAIFNCE ( P ARR AYI 001 18 ) , XM SDF ) 

FQUIVALFNCE I P ARRAY! 00126} , CON 1 
EQUIVALENCE ( R AR R A Y ( 00 12 5), XL AM I 

EQUIVALENCE ( RARRAY! 001261 , XMUAIR ) 

EQUIVALENCE ( RARRAY! 00127) , XMUH2 ) 
FJUIVALFNCF I R ARR AY ( 0012R) , XMUP5 I 
EQUIVALENCE t P AKR AY { 00 129 ) , SC T ) 

EQUIVALENCE ( R AP R A Y ( 00 1 30 ) , C6ED ) 

EQUIVALENCE { p ARP A Y ( 00 1 33)* PCNT ) 

EQUIVALENCE ( R AR P A Y ( 00 1 3 A ) , Q3MAX ) 

EQUIVALENCE ( R ARRAY ( (JO 1 A3 I , CAFOSW ) 

EQUIVALENCE ( RARRAY!00166) , C6FAC T ) 
EQUIVALENCE ( RARRAY! 00165), FIE2SW ) 
EQUIVALENCE ( RARRAYI 00010) , PHOREF ) 
EQUIVALFNCF < RARRAYI 00027) , UREF ) 
EQUIVALENCE I R ARR AY l 0004b ) , UE ) 

EQUIVALENCE ( RARRAY! 00068 ) , RHOF ) 

SEI CONST ANTS FOR TURUULENCF MODEL 

AVO = 25.3 

CON=0. )35 
C6ED=0.0007 
F l F2SW = 0 .02 
PCNT* 1.0 

USAR = FACTMU 

XL AM=0.0753 

XMUW = AVC / XMUAIR 

M A X = 2 

ERAC = XI AM / CON*. 7 

DERUG OUTPUT HEADINGS 


IF I NT .EQ. O.AND. IWP IT.GT.O) WR I TE ( 6 , 9600 > 

9600 FORMAT I IH 1 « 9X , 6HF 1 1 LL ) , 9X.6HALILL) , 6X , 9HG AMM 4 I L L ) , 10X 

* 5 HU I II) , 22X, 8HY! KTC I I ) , 5X , l OH Y I K T C I t - 1 ) , 9X,bHRH0(I) / ) 

9610 FORMAT I 1H0, 8115 / 8F15.5 ) 

620 FORMAT I 1H , 51 6H E 2 1 . 13, 3H ) =, E13.5) I 

INITIALIZE ARRAY COUNTERS 

XT = TIME * ALC 

IE ( NS .GT. 0 ) GO TO 30 
tF I XT .IT. EIE2SW ) GO TO 30 
NE1E2 = 3 - NE LE2 

KPNT = l 

NS = 1 

30 CONTINUE 

IE ( NS2.GT. 0 ) GO TO 60 
IF ( XT .LT. C6E0SW ) GO TO 60 
KPNT = L 

NS 2 = l 

60 CONTINUE 

SET UR AKRAY INDICES. 

NP = NVU 


CALL 

LINK3 I 

1, 

nil), 

YY I 

I ) 

NR 

= NVQ 3 




CALL 

i INK 3 ( 

1, 

Mil), 

YYI 

l ) 


DO LOO K = 1, NNOOE 
100 RHOUIK) = II(K) * RHO(K) 


10062 
1006 3 
10066 

10065 

10066 

10067 

10068 

10069 

10070 

10071 
10»Z2 
10073 
100/6 

100 /5 

10076 

10077 

10078 

10079 

10080 
1008 1 
10082 
1008 3 
10086 

10085 

10086 

10087 

10088 
10089 
J 0090 

10091 

10092 

10093 
10096 

10095 

10096 

10097 

10098 

10099 
10 100 
10 10 l 
10102 
10103 
10106 

10105 

10106 
10 107 
10108 

10109 

10110 

101 11 
101 12 
10 1 1 3 
10116 
10 l 1 5 
10 116 
10117 
1 0 1 18 
101 19 
10 120 
10121 
10122 
10123 
10126 
10125 
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MM 



c 



10126 

c 

COMPUTE MAX. H2 MASS FR AC T I ON .C OMPU TE ARF A 

CONT A I N I NG H2 LEVFLS 

10127 

c 

.GT.1.0 PERCENT 


10128 

c 

COMPUTE MASS DFFFCT. 


10 129 

. c 



10130 


CALL 03CUNC ( INOOF, ARPA, w, RHOU, ARR ) 


10131 

c 



10 132 


ARR = SORT (ARR) 


10133 


KT = L 


10134 

c 



10135 

c 

COMPUTE MIXING LENGTH MODE L 


10136 

c 

FI = 1**2 * OMEGA * GAMMA * ABSIDU/DY). 


10 137 

c 



10 138 


00 600 KK = l, LG 


10139 


M = INCOLIKK) 


10140 


IF ( M .LT. 2 ) GO TO 600 


10141 


N = INDEX( K TGM- 1 ) 


10142 

c 



10143 

c 

VAN DRIEST DAMPING FACTOR 


10144 

c 



10 145 


RHOED = RHOE * RHOPPF 


10146 


IJFO = UE * UREF 


10147 


T AUW = CF0V2( K K ) * RHOFD * UED * UED 


10148 


OMEGA = 1.0 


10149 


GAMMA ( l ) = 1.0 


10150 


El( 1) = 0.0 


10151 


AL ( l) = CON * YIKT) 


10152 


00 200 LL = 2, M 


10153 


II = LL - 1 


10154 


I = INDEXIKTGI l- 1) 


10155 


I P 1 = INDEX(KTGII) 


10156 


YUP = Y(KTGM-l) 


10157 


MM? = M - 2 


10158 


IU = INDEX ( K T CM- l ) 


10159 


00 160 IJ = 1, MM2 


10160 


IL = INDE X( K TGM- I J- I ) 


10161 


VAL = ABS ( U( IL ) / U( IU) - l., 0 ) 


10162 

c 



10 163 

c 

oetfrminf UPPER BOUNDARY OF hydrogen concentration 

10 164 

c 



10165 


IF ( NUQ3 .20. 3 ) 


10166 


♦VAL = ABS ( W< IL ) / 03MAX ) 


10167 


IF ( VAL .GT. PCNT ) YUP = Y(KTGM-IJ-l) 


10168 


IF ( VAL .GT. PCNT ) IMAX = M - IJ 


10169 


IF ( VAL .GT. PCNT ) GO TO 170 


10170 

160 

CONT INUE 


10171 

170 

CUNT INUE 


10172 


XI = Y(KT(.LL-1) / Y(KTGM-l) 


10173 


AL(LL) = CON * Y(KTGLL-l) 


10174 


IF ( Y(KTGLL-l) .LT. FRAC*YUP 1 GO TO 190 


10175 


A L ( LL ) = XL AM * YUP 


10176 

190 

CONT INUE 


10 177 


GAMMA! LL ) = 1. / < 1. G XI **9| 


10178 

* 

RHOVn = HH0UP1I* RHOREF 


10179 


YVD = Y(KT*LL- 1 )*ALC 


10180 


1 F ( T AUW .GT. 0.0 ) 


10181 


♦ OMEGA = OMEGA - EXP ( - YVD * X"UW * ( TAUW * RHOVO )**.5 ) 

10182 

* c 



10 183 

r 

COMPUTE FI AND E2. BOTH ARE VECTORS WHICH 

WILL BE FILLED. 

10184 

c 

VISCOSITY SELECTED FROM El OR F2 


10185 

c 



10186 


Fl(LL) = AL ( L L ) ♦ AL ( L L )* OMEG A^GAMMA ( L L ) * A B S ( 

(uupii-umi/ 

10187 


l ( Y(KTGII) - Y(KTGII-l))) * RHO(IPi) 


10 188 


KTPI = KT G II 


10 1 89 




21 9 

y 

y 

/ 



i 
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KTPM = KT C II - l 10190 

IF ( NT .NF. 0 ) on TO 2 50 10 19 1 

IF I IWRIT .LE. 0 ) GO TO 250 10192 

WRITF < 6, 9610 > LL , LL , LI, IP1, I, KTPI, KTPM, IP1, 10193 

* E 1 ( LL ) , ALILLI, GAMMA ( LL I ,U ( IT l » , U(I) , Y ( KTPI ) , Y ( KT PM »,RHO(IPl) 10194 

250 CONTINUE 10195 

200 CONTINUE 10196 

IF ( KALL03 .EQ. 0 I ARR = Y(KUM-l) 10 197 

TEMPI = C4E D * XMSOF / ARR 10198 

DO 400 J = l, M 10199 

E2( J ) = GAMMA I J ) * TEMPI L02Q0 

400 C'JNTINUF 10 201 

IF ( IWRIT ,GT. 0 .AND. NT .EG. 0 ) ;0?02 

*WRITF ( 6, 9620 ) ( K, E2IKI, K = 1, M ) 102J3 


10204 

IF FI IS LESS THAN E2, USE El. WHEN El BECOMES GPFATER THAN F2 US 10205 



F 2 FDR THF 

REMAINDER OF THF 

COEFFICIENTS. 

10206 
1020 7 


KGDE = 0 



10203 


UP 500 K = 

1. M 


10209 


J = K 



10210 


I 

INDEXIKTCK-ll 


1021 l 


IF (KOOE . 

EG. 1) GO TO 450 


10212 


[F ( < .GT 

. IMAX ) GO TO 450 


10213 


FPSl.NI [ I 

= E l ( J ) * USAR 


10 214 


GO TO 475 



102 15 

450 

CONTINUE 



10216 


KODF = l 

• 


10217 


IF ( NC1E2 

.NE. 2 I e PSLN( I ) 

= F 1 ( J 1 * USAR 

10218 


IF ( NF l F2 

.EG. 2 ) FPSLNI I I 

= F 21 J ) * USAR 

10219 

475 

CONT IN'JF 



10220 

500 

CONT INUF 



10221 


KT 

KT R M 


10222 

600 

CONT INUE 



10223 


NT 

1 


10224 


RETURN 



10225 


FNO 



10226 


220 


